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Introduction 


You're seated in a heavily padded chair which ts vibrating 
ever so slightly. All of a sudden you feel a jolt and your view- 
screen, which has previously been black, shows the reced- 
ing form of the lunar command module. It will continue to 
orbit around the moon two hundred miles up while you land 
your LEM and explore the moon. Your viewscreen now 
shows that you are beginning to tumble, so you hit the but- 
ton on your right joystick to give a short burst on the star- 
board stabilization rockets. A few more short bursts right, 
left, then right again and your viewscreen shows that 
you've stabilized your craft and that you’re headed smooth- 
ly, if rather rapidly, toward the lunar surface. In panic you 
realize that you've taken a long time with your stabilizing 
maneuvers so you jab the retro rocket firing control on full. 
Your viewscreen iS now obscured by the flames so you 
switch to a computer display which shows your spacecraft 
and its position as you approach the moon. You manage to 
slow your craft, however, you see that you're heading for 
the side of a crater and you don’t have enough time for 
positional maneuvers. You switch your viewscreen back on 
and hope for the best. Unfortunately, the crater walls are 
steep and one leg of your LEM makes contact before the 
others. It buckles and the craft topples over. At this, 
Mission Control in Houston sends you a radio message, 
“Ground telemetry records severe craft damage. You have 
13.2 days of oxygen. Information on rescue attempt to 
follow. Don’t panic.” 

You punch another button on your console and your 
screen lights up, “Lunar Landing Simulation complete. Try 
again?” You lean back in your easychair, palms moist with 
perspiration and type, “No. Get Footbail”’ A moment later a 
referee and the hulking shape of Roger Staubach appears 
on the screen. The ref turns and asks you, “Heads or tails?” 

Far-fetched? Not at all. Technologically this is all possi- 
ble today. From an economic standpoint it will take a few 
more years before systems with these capabilities are with- 
in reach of the average consumer. But even today some 
amazing games are possible with the current breed of 
home computers. That’s what this book is all about: games 
for home microcomputers, minis, timesharing systems and 
even large mainframes—in short, any computer that 
speaks Basic. 

Computer games are not a new phenomenon. Back in 
1952 shortly after the first commercial computers were 
introduced, A. L. Samuel at IBM wrote a checkers program 
for the IBM 701. it was written with the idea that a great deal 
could be learned about the human thought process if one 
could simulate it on a computer. This also was the reason 
that Newell, Shaw, and Simon a few years later at Rand 
Corporation wrote the first computer chess program. But 
even to those uninitiated in the field of artificial intelligence 
research, these programs were great fun as games even if 
they didn’t play outstanding chess or checkers. 

But while these programs were being written as part of 
research projects, a much larger group of people were fur- 
tively writing and playing games at junchtime and before 
and after work on their empioyers’ computers. There were 
at least two or three of these fanatical game players, some- 
times more, at each computer installation of any size. The 
advent of the minicomputer and timesharing networks in 
the early 1960's expanded this community of computer 
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hackers and by 1966 they were meeting at various profes- 
sional society meetings and laying out plans for a com- 
puter chess tournament. 

The hard core of the hackers, the real cultists, were 
those that were into Spacewar. Originally written by some 
hackers at the MIT EE Department back in 1961-62 for a 
DEC PDP.1, the first minicomputer, Spacewar spawned a 
fanatical community of hackers who played, modified, 
improved and experimented with it. 

“Ah, Spacewar. Reliably at any nighttime moment, hun- 
dreds of computer technicians are effectively out of their 
bodies, computer-projected onto CRT display screens, 
locked in life-or-death space combat for hours at a time, 
ruining their eyes, numbing their fingers in frenzied mash- 
ing of control buttons, joyously slaying their friends and 
wasting their employers’ valuable computer time. Some- 
thing basic is going on.” (Stewart Brand in // Cybernetic 
Frontiers .)* 

Item: October 10, 1972. The PDP-10 at the Stanford Al 
Laboratory is reserved from 8:00 p.m. on for the “Intergalac- 
tic Spacewar Olympics.” 

ltem: October 1976. Cromemco announces Spacewar for 
the 8080 and TV Dazzler. Paper tape $15.00. 

in layman’s terms what those two items mean is that in 
the short span of four years Spacewar went from a game 
that required the use of a multi-million dollar computer toa 
game that could be played on a $1,000 home computer. 

What happens to a fanatical cult when you open the 
temple doors and let everyone take its source into their 
own homes? Obviously, we don’t know since the temple 
hasn’t been open that long, but it seems obvious that this 
same generation of kids that can’t do manual math or usea 
slide rule because of the pocket calculator may learn that a 
TV set can throw some actively challenging things their 
way instead of just a passive picture. 


About this Book 


Basic Computer Games: Microcomputer Edition is a 
major revision of my first book, 707 Basic Computer Games 
published in 1973 by Digital Equipment Corporation. The 
programs in the original book represented six different ver- 
sions of Basic. The programs in this book ail run in Micro- 
soft Basic (more about that later on pagexXIl). There were 
several programs that couldn’t be converted or weren't 
worth converting to Microsoft Basic. These were deleted 
and replaced with new programs. 

Program listings were done on a Teletype Model 43 ter- 
minal. Its 7 x 9 dot matrix printer coupled with its 13.2 char- 
acters per inch spacing gives it exceptionally high legibil- 
ity, even when reduced to 64% as it has been done in here. | 
salute those of you with the first book who patiently, magni- 
fying glass in hand, deciphered nearly illegible listings and 
got those programs up and running. This book should 
make that task considerably easier. 


David H. Ahi 
September, 1978 


“Steward Brand, I! Cybernetic Frontiers, New York, Random 
House, 1974. 


The Basic 
Language 


Be sure to read this section before entering any of the 
games in this book on your computer. It willsave you time 
and minimize potential problems. 

The games in this book were written by a wide cross 
section of people on a variety of computers over a ten- 
year period. Most of the games were originally written for 
time-sharing systems such as the DEC Timeshared 8 and 
RSTS-11, HP 2000, and CDC 3600. 

The first edition of this book was originally published in 
the early 70's. All the programs were printed in their 
original dialect of Basic. One of the major functions of 
the book was to give computer users an opportunity to 
learn more about their own and other versions of Basic. 
For example, a dimensioned string variable such as 
A$(l) had an entirely different meaning in DEC and HP 
Basics. The designers of each version of Basic had good 
reasons for doing what they did and it was (and is) very 
instructive to understand how different approaches work 
and their respective rationales. 

in 1975, a small company in the telemetry business, 
M.I.T.S., introduced the first computer for hobbyists, the 
Altair 8800. This signaled the start of an immense new 
industry: personal computers. Ed Roberts, president of 
M.LT.S., contracted with a small consulting company 
started by two bright young programmers to write a 
version of Basic for the Altair. 

The name of the consulting company was Microsoft, 
and the Basic that Bill Gates and Paul Allen devised soon 
came to be known, appropriately enough, as Microsoft 
Basic. It was modeled on Basic-Plus, originally a creation 
of Nathan Teichholtz at Digital Equipment Corporation. 
Nathan is an unsung hero in the history of the Basic 
language and deserves a great deal of credit for this vastly 
improved version of the language. And in the kudos de- 
partment, we must always remember to bow low to John 
Kemeny and Tom Kurtz of Dartmouth, the creators of the 
original Basic. 

in any event, in 1977 it appeared that Microsoft Basic 
was fast becoming the standard Basic for micro- 
computers, and the programs in this book were all con- 
verted to Microsoft Basic, Revision 4.0. For about three 
years, this Basic truly was the standard. 

However, three things conspired against it becoming 
the all-time standard. First, it was written for the 8080 
(and Z80) microprocessor, and later mpu’s had cap- 
abilities (and idiosyncrasies) that the 8080 did not have, 
hence, slight differences started creeping into Microsoft 
Basic on later computers. 

Second, not all computer manufacturers wanted to 
contract with Microsoft to write Basic for their computers 
and so some wrote their own. This has led to some 
particularly interesting (and confusing) dialects of Basic. 

Third, as computer hardware became more powerful 


with 16-bit mpu’s, special chips for graphics and sound, 
Winchester disk drives, modems, and other peripherals, 
various extensions and changes had to be made to the 
software. Some of these changes are in the operating 
system and are transparent to the user, but others affect 
the Basic language. 

So, what you are holding is a book of thoroughly de- 
bugged programs that can be entered directly and will 
run perfectly on some computers, while on other com- 
puters they will not run at all. What can you do about it if 
you have a computer on which the programs will not run? 

First, do not call or write us. You have paid less than a 
dime per program and, after everyone has taken his share, 
we have made less than 1 cent per program; for that, we 
can’t afford to act as personal consultants. 

Second, please keep in mind that every program runs 
perfectly in Microsoft Basic 4.0. The sample runs are not 
faked; they came off a real computer exactly as they 
appear. There are no typographical errors in the pro- 
grams — misspellings maybe — but the functional code 
is absolutely correct. 

Third, the early versions of the books had programs in 
15 or 20 vastly different dialects of Basic, yet hundreds of 
thousands of purchasers managed to convert the pro- 
grams to their machines and get them going. 

The key to converting the programs is to understand 
how Microsoft Basic works compared with your Basic. 
While we cannot present an entire manual on Microsoft 
Basic, we have included in the next section information 
on the key elements of the language and those likely to be 
different in other implementations. 

If direct conversion doesn’t work, do some “reverse 
engineering,” (as it known inthe computer industry). This 
means taking apart a program and drawing a flowchart of 
the logic. With a flowchart in hand, you can then write 
your own program to do the same thing, but often faster 
and better. 

Since many of the programs were originally written in 
what today would be considered a primitive version of 
Basic, there are many ways of substantially shortening 
and improving some of these programs. 

You should aiso keep in mind that all of these programs 
were written on computers which used an ASR-33 
Teletype terminal. These are massive clunkers with 72 
(or 80) columns of output, upper case only, and no 
graphics capability whatsoever. Naturally, you will have 
to do a fair amount of reformatting if your computer has 
only 40 columns (Apple, etc.), 32 columns (Sinclair), 28 
columns (Tl), or 20 columns (Epson HX-20). It can be 
done; for another book, | converted Hammurabi, Lunar 
Lander, and Gunner, all of which use 72 columns, to all 
the computers mentioned above. 


The programs in this book use the following statements and functions in Microsoft Basic: 


Statements 
DATA 


DEF FNA(X) 


DIM 


END 
FOR..TQ..(STEP) 


GOSUB n 
GOTO n 
IF.. THEN n 


IF..THEN stmts 


IF. THEN n ELSE m 
IF.. THEN stmts 


ELSE stmts 
INPUT 

LET 

NEXT 


ON m GOSUB... 
ON m GOTO... 


PRINT 


READ 


REM 
RESTORE 


RETURN 


STOP 


Holds numeric or string data for a 
READ statement 


Defines any function of X 


Declares maximum size of string 
or numeric array. Array subscript- 
ing begins at 0 although many pro- 
grams do not use the zero sub- 
script. 
Last statement in program 
Executes a loop. The test for 
ending the loop is made after the 
loop has been executed. Upon 
exiting, the counter value equals 
the upper limit plus the step. 
For example, 

10 FOR J=1 TO 3 

20 PRINT “HI” 

30 NEXT J 
will print “HI” three times, and J 
will equal 4 when the loop is 
finished. 
Branch to subroutine n 
Branch to statement n 
Branch to statement n if condition 
is true 
Executes statements if conditionis 
true. Drops to next numbered line 
if false. 
Branch to nif true orto mifnottrue 
Does statements after THEN if 
true, stmts after ELSE if false 
Requests data from keyboard. The 
prompt string is optional 
Assigns value of expression to 
variable. 
The word LET is optional 
Marks end of FOR loop 
Branch to mth subroutine 
Branch to mth line no. 
in these statements, m must be an 
integer starting at 1 and increasing 
by 1 
Displays strings, constants and 
variables. Calculations can be 
done within a PRINT statement 
Moves values of DATA _ into 
variables 
Remark. Does not execute 
Resets DATA pointer to first item 
in list 
Go to statement following last 
GOSUB 
Terminate program 
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20 DATA 4,6,“AHL” 


20 DEF FNA(X)=3*X-2 

20 DEF FNA(X)=SIN(X/57.3) 
20 DIM A(50) 

20 DIM A$(25),B1$(50) 


9999 END 


20 FOR |J=1 TO 30 
20 FOR J=2 TO N STEP 3 


20 GOSUB 200 
20 GOTO 50 
20 IF A>1 THEN 50 


20 IF Z<5 THEN A=1:PRINT B 
20 IF X=Y THEN 50 ELSE 90 
20 IF Z>R THEN X=1 ELSE X=2 
20 INPUT N 

20 INPUT “YES OR NO”":Z$ 
20 LET A=1 

20 Z$="DRY” 

20 NEXT J 


20 ON X GOSUB 100,200 
20 ON Y GOTO 50,80, 120 


20 PRINT “A=",A 
20 PRINT Z$,10*A+B 


20 READ N,X1,A$ 


20 REMARKABLE PROGRAM 
20 RESTORE 


20 RETURN 


20 STOP 


Functions 
ABS (X) 
ASC(X$) 


ATN(X) 
CHR$(X) 


COS(X) 
EXP(X) 
INT(X) 
LEFT$(X$,Y) 
LEN(X$) 
LOG(X) 
MID$(X$,Y,Z) 


RND(1) 


RIGHT$(X$,Y) 
SGN(X) 


SIN(X) 
SQR(X) 
STR$(X) 


TAB(X) 


TAN(X) 
VAL(X$) 


Absolute value. 

Returns the ASCII value of the first 
character in the string argument. 
ASC(“A”) is 65,ASC (“B”) is 66, etc. 
Arctangent 

Converts ASCII value to a char- 
acter string. CHR$(65) is “A”, etc. 
CHR$(7) is a bell ring. 

Cosine 

Value of e raised to the X power 
Integer function 

The leftmost Y characters in X$ 
Number of characters in X$ 

Log of x to the base e 

Takes Z characters from X$ start- 
ing at position Y 

Returns a random number be- 
tween 0 and 1. 

The rightmost Y characters in X$ 
Sign function. Returns -1 if X is 
negative, O if x is zero, 1 if x is 
positive. 

Sine 

Square root 

Converts X to a string of decimal 
digits, for example if X was 8.465 it 
would be converted to the string 
“8.45”. 

Spaces over to position X on the 
terminal. 

Tangent 

Returns the numerical value of the 
string of digits in X$. Opposite of 
STR$(X). 
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In Microsoft (Altair) BASIC, any expression may be 
evaluated as either true or false. A true condition will 
return a value of -1, and afalse condition 0. Thus, if we say 
LET Q= -(X=Y), Q=1 if X=Y and Q=0 if X=Y. This logical 
evaluation of expressions is only used in the Hexapawn 
game in the user-defined function and with a little in- 
genuity could be replaced with a look-up table. A few 
other games use the logical AND and OR operators, which 
work in a straightforward manner. 

The programs in this book were printed ona printer that 
uses a caret (A) to indicate exponentiation. This is 
equivalent to an up arrow. Incidentally, exponentiation 
and taking roots are among the least accurate functions 
on small computers. For example, try this program. 

10 INPUT N 

20 I=SQR(SQR(N)) 
30 J=(112)12 

40 PRINT N,J 

50 GOTO 10 

Chances are good that N and J will not be the same 25% 
or more of the time. You can improve the accuracy by sub- 
stituting J*J for J squared or J*J*J for J cubed. 

Microsoft Basic permits more than one statement on a 
line when the statements are separated by a colon (:). As 
noted above, in an IF..THEN statement, if the condition is 
false, control drops to the next numbered line, not to the 
next statement on the same line. 

This means that for Ti and other computers that do not 
permit multiple statements on one line, you will have to 
insert additional lines. This may be difficult when line 
numbers are close together. One easy solution is to adda 
zero to all line numbers, but you must remember to do 
this in IF.. THEN, GOTO and GOSUB statements as well 
as changing all the numbered lines. 

The random function can be especially irksome as it is 
one that differs widely on different versions of Basic. In 
Microsoft Basic, RND(1) returns a value between 0 and 
0.999999. This is the convention used in ail programs in 
this book. On some computers, you may have to use 
RND(0), and on others just RND. 


Conversion to 
other Basics 


Radio Shack BASIC: Approximately 25 of the games 
which do not use strings will run under Level 1 BASIC; 
another 20 or so may be converted relatively easily by 
converting to all numeric input (1 instead of YES, 0 for NO, 
etc.). In Level 2, change RND (1) toRND (0). Also function 
definitions, when used, must be expanded. 


Apple II BASIC: Ail #rograms will run directly in Applesoft 
Basic with little or no modification. in integer Basic, 
strings are similar to HF Basic. Aliso, multiple statements 
on one line work differently than with Microsoft Basic. 


DEC BASIC PLUS: Programs written in Altair BASIC 
should be completely compatible with DEC BASIC PLUS. 


HP BASIC: Some conversion wiil be required to get certain 
programs to run in HP BASIC. First, HP BASIC does not 
have a zero subscript for arrays. So if, in a program, the 
zero subscript is used, HP BASIC will report a subscript 
out of bounds error. The solution is to add one to ali the 
array subscripts if it is determined that the program does 
use the zero subscript. 

Second, HP BASIC character strings differ from Altair 
BASIC. There are no string arrays. So if string arrays are 
used in some program, a conversion must be made. 
Possibly the string array could be converted into asingle 
string, or anumeric array, or aseries of data statements, or 
possibly a data file. Also, HP BASIC does not have 
RIGHT$, LEFT$ or MID$ functions. Instead substitute the 
normal HP string subscripting conventions [for instance, 
RIGHTS$(X$,2) becomes X$(LEN(X$)-1, LEN(X$)]. 

Third, HP BASIC does not have multiple statements on 
one line. Convert multiple statement lines to several 
separate lines. 


SWTPC 6800 BASIC: Versions 2.0 and above of this 
BASIC should be nearly compatible. Like HP BASIC, 
SWTPC BASIC does not allow the zero subscript. Also, 
character strings may not contain more than 32 
characters. Note that in Altair BASIC, RND(1) is used to 
get random numbers, rather than RND(0) as in SWTPC 
BASIC. These comments also apply to MSI Disk BASIC. 
TDL ZAPPLE 8K and 12K BASIC: All the programs are 
executable in both TDL BASICs. However TDL ZAPPLE 
BASIC has a RANDOMIZE verb which should be inserted 
at the beginning of a program to get true pseudorandom 
numbers. 


XII 


Sol BASIC: The programs will work directly in Sol 
Extended Basic. Many programs will run in 5K Basic but 
the majority will require considerable conversion. 


PET BASIC: Commodore PET BASIC is identical to the 
BASIC used in this book. Thus, all the games will run 
without any conversion. 


Cromemco 16K Extended BASIC: Cromemco BASIC 
allows multiple statements, but certain statements must 
be the last statement on a line, so some rearrangement 
may be necessary. Two-dimensional arrays must be 
dimensioned explicitly (there is no default to a 10 by 10 
dimension). Also, strings in Cromemco BASIC are 
implemented like HP BASIC, not Altair BASIC. 


Ohio Scientific BASIC: Most programs will run directly on 
Challenger 2P and larger systems. The 32-characters per 
line display of the Challenger 1P and Superboard will 
require conversion of the program output routines. 


IMSAI 8K BASIC: Programs are executable with little or no 
modification. 


North Star Disk BASIC: North Star BASIC has character 
strings like HP BASIC, so some conversion will be 
required. Also note that the function SQRT is used in place 
of SQR. 


PolyMorphic 11K BASIC: The multiple statement 
separator is a backslash (/), not the colon. Like North Star 
BASIC, SQRT is used instead of SQR. In Poly BASIC, 
you're not allowed to exit a FOR loop prematurely, except 
by using the EXIT verb. So whenever you see an 
IF... THEN out of a FOR loop, use the EXIT verb. Also note 
that in order to get random numbers, RND must be used 
with a “seed” value between 0 and 1, which determines at 
what point in the sequence of random numbers the RND 
function starts. This seed value is usually based on the 
time of day. After initializing the RND function, use 
RND(0) to get random numbers. 


BASIC-E (runs under CP/M Disk Operating System): All 
arrays must be dimensioned (there is no default). The 
RANDOMIZE verb should be used, at the beginning of the 
program, to get random. numbers. Also, multiple 
statements are not allowed, so conversion to several 
single statement lines will be necessary. 


Acey Ducey 


10 PRINT TAB(26);"ACEY DUCEY CARD GAHNE” 


This is a simulation of the Acey 20 PRINT TABCIS)S"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY® 
Ducey card game. In the game, the oy Peay 
dealer (the computer) deals two cards 23 PRINT 
face up. You have an option to bet or 30 PRINT"ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER ° 
not to bet depending on whether or not 40 PRINT"THE DEALER oe ae TUO CARDS FACE UP” 

feel sard dealt wil SO PRINT’ YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING” 

an “b. re poe ae t part ill have a 60 PRINT"ON WHETHER OR NOR YOU FEEL THE CARD WILL HAVE" 
value between the first two. 70 PRINT"A VALUE BETWEEN THE FIRST THO.” 

Your initial money (Q) is set to $100; 80 PRINT" IF YOU DO NOT WANT TO BET, INPUT A 0” 
you may alter Statement 110 if you 100 N=100 
want to start with more or less than 00 PRINT“YOU WOW HAVE “:0:" DOLLARS" 
$100. The game keeps going on until 130 PRINT " 
you lose all your money or interrupt the 140 GOTO 260 
program. 210 O=0+H 

The original program author was Bill 0 feat 
Palmby of Prairie View, Illinois. 250 GOTO 120 

260 PRINT*HERE ARE YOUR WEXT TWO CARDS * 
270 AZINT(L4SRND(1))42 
ACEY DUCEY CARD GANE 

CREATIVE COMPUTING HMORRISTOUN, NEU JERSEY 280 IF A<2 THEN 270 


290 IF A>T4 THEN 270 
300 BEINT(14*RND(1))+2 
H10 IF BC2 THEN 300 


ACEY-DUCEY IS PLAYED IW THE FOLLOWING HANHER 320 IF B>14 THEN 300 
THE BEALER (COHPUTER) BEALS TWO CARDS FACE UP 330 IF AD=B THEN 270 
YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING 350 IF ACT THEN 400 
GW WHETHER OR NOT YOU FEEL THE CARD WILL HAVE 360 IF A=lt THEN 420 
A VALUE BETUEEN THE FIRST TWO. 370 IF A=12 THEN 440 
IF YOU DO NOT UANT TO BET, INPUT A 0 380 IF A=13 THEN 460 
YOU NOU HAVE 100 DOLLARS 390 IF A=t4 THEN 480 
400 PRINT A 
HERE ARE YOUR WEXT TWO CARDS 410 GOTO 500 
2 420 PRINT" JACK" 
9 430 GOTO 300 
440 PRINT“QUEEN" 
WHAT IS YOUR BET? 25 450 GOTO 500 
QUEEN 460 PRIMT"KING" 
SORRY, YOU LOSE 470 GOTO 500 
YOU NOU HAVE 75 DOLLARS 480 PRINT“ACE" 


500 IF B<1! THEN S50 
S10 IF Beit THEN 570 


HERE ARE YOUR NEXT TWO CARDS 320 IF Bei2 THEN 590 
4 330 IF Belg THEN 610 
10 S340 IF Bai4 THEN 430 
S50 PRINT B 
WHAT IS YOUR BET? 25 360 60TO 650 
10 370 PRINT“ JACK" 
SORRY, YOU LOSE 380 GOTO 4650 
YOU NOU HAVE SQ DOLLARS S90 PRINT"QUEEN” 
600 GOTO 450 
HERE ARE YOUR WEXT TWO CARDS 610 PRINT°HING" 
8 420 GOTO 650 
QUEEN $30 PRINT"ACE” 
$40 PRINT 
WHAT IS YOUR BET? 0 650 PRINT 
CHICKEN! ! 460 INPUT"WHAT IS YOUR BET"; 4 
$670 IF W<>0 THEN 680 
HERE ARE YOUR NEXT TWO CARDS 675 PRINT“CHICKENII* 
4 676 PRINT 
10 67? 80TO 260 
$80 IF H<=@ THEN 7230 
WHAT IS YOUR BET? 20 690 PRINT“SORRY, MY FRIEND BUT YOU BET T00 MUCH” 
10 700 PRINT“YOU HAVE ONLY “;0;" DOLLARS TO BET" 
SORRY, YOU LOSE 710 GOTO 650 
YOU MOU HAVE 30 DOLLARS 730 CHINTCL4@RND(1) 42 
740 IF C<2 THEN 730 
HERE ARE YOUR NEXT TWO CARDS 750 IF C>14 THEN 730 900 PRINT 
? 760 IF CCit THEN 810 710 IF CA THEN 930 
JACK 770 IF C=1t THEN 830 920 GOTO 970 
780 IF €=12 THEN 850 930 IF Co=B THEN 970 
WHAT IS YOUR BET? 0 790 IF C=413 THEN 870 950 PRINT“YOU WINIII" 
CHICKEN! 800 IF C=14 THEN 89¢ 960 GOTO 210 
810 PRINT C 970 PRINT*SORRY, YOU LOSE” 
HERE ARE YOUR NEXT Tua CARDS 820 GOTO 910 980 IF M<O@ THEN 240 
Jack 830 PRINT"JACK" 990 PRINT 
QUEEN 840 GOTO 910 1000 PRINT 
850 PRINT“QUEEN" 1010 PRINT“SORRY, FRIEND BUT YOU BLEW YOUR WAD" 
WHAT IS YOUR BET? 0 860 GOTO 910 1020 INPUT" TRY AGAIN (YES OR NO)"3A8 
CHICKEN! ! 870 PRINT"KING" 1030 IF AS="YES" THEN 110 
a80 GOTO 910 1040 PRINT"QK HOPE YOU HAD FUN" 
890 PRINT "ACE" 1050 END 


2 


Amazing 


This program will print out a different 


maze every time it is 


run and 


guarantees only one path through. You 
can choose the dimensions of the maze 
— i.e. the number of squares wide and 


long. 


The original program author was 
Jack Hauber of Windsor, Connecticut. 


AMAZING PROGRAN 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


WHAT ARE YOUR WIDTH AND LENGTH? 15,20 


11 I I rol 
1 Irit I ro I 
trnbob ob ob deetecgerk obo dewiernog 
1 11 I I I I 
CE Sole SE ME Salad SO lad la Dalal Sed a 
1 rl I rot 

Poms 2 gS  deeteegec gk ob gecgend 
I I ae | ro! 

ergot iecieeices Peed go gergeebeciee 
I I I I rt 

A tote Set ted aed SO Saad ad 
I oe oe | If I 

Powg Eg beegee go gecgecg gene 

I If I I I I 
Pogeen bo bog gecgees boron: 
11 rol I Tridtii 
Bobo gergeeg esb ob geek greg tect 
11 I II il I 1 
togvrgers deer ob ob ob gers geen 
I if rrdt I If 
Bevgved of ob Geb ob oberg beedog ok 
I 11 ride 11 
fogewh obeemeep bob ob ob decir 
I I 1 Irrt I 

Ea Soledad ME Solel ote Salad Ste Daa 
1 ae | I i | I 
Pergerd odewgerr ob beck ob odeegecn 
I It I I I I 
1! I I I Iord 
Pobregesgeeb ob fo goriccgers obo og og 
11 I I rol I 
BOOP ETE berger dee berg bese gens 
11 T I I 
POET E bee gocdstberteedecgees og gecaee 
1 It 1 I if 
rot I I 


10 PRINT TAB(28); “AMAZING PROGRAK” 


20 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 
30 PRINT:PRINTSPRINT SPRINT 
INPUT “WHAT ARE YOUR WIDTH AND LENGTH" ;H,¥ 


100 
102 
104 
116 
120 
130 
140 
150 
160 
165 
170 
t7t 
173 
180 
190 
195 
200 
210 
215 
220 
230 
240 
250 
260 
265 
270 
280 
290 
300 
gto 
320 
330 
334 
338 
340 
350 
340 
370 
380 
390 
400 
405 
Ato 
Ah5 
420 
430 
440 
450 
460 
470 
480 
485 
490 
500 
510 
520 
530 
540 
545 
547 
550 
552 
554 
560 
570 
580 
590 
600 
610 
620 
625 
630 
640 
450 


IF H<>t AND V<>1 THEN 110 
PRINT “HEANINGLESS DIMENSIONS. 


DIM UCH,V), VCH, V) 
PRINT 

PRINT 

PRINT 

PRINT 
G=0:Z=0:X=INT(RND( 1 )#H+1) 
FOR I=t TO 

IF Y=X THEN 173 

PRINT “.--"3:G0TO 180 
PRINT *, “3 

NEXT I 

PRINT “.“ 

Cr1sW(X, f)8CrC3C+1 
R=X2S211G0T0 260 

IF R<>H THEN 240 

IF S<>V THEN 230 
R=1:5=1:G0T0 250 
R=1:5=841:G0TO 250 
RER+I 

IF W(R,S)=0 THEN 210 

EF R-1=0 THEN 530 

IF W(R-1,8)<>0 THEN 530 
IF S-1=0 THEN 390 

IF U(R,S-1)<>0 THEN 390 
IF ReH THEN 330 

IF UCREE,S)<90 THEN 330 
X=INT(RND(Y #341) 

ON X GOTO 770,620,860 
IF S<>V THEN 340 

IF Z=1 THEN 370 
G@=1:60T0 350 

IF UCR, S41)<20 THEN 370 
X=INTERND(L) 8341} 

OR X GOTO 790,820,910 
XEINTCRND(1 #241) 

ON X GOTO 790,620 

IF R=H THEN 470 

IF WCR#1,5)<>0 THEN 470 
IF SOV THEN 420 

IF Z=1 THEN 450 
Q=1:G0TO 430 

IF WER, S#1)00 THEN 450 
XEINTCRNDCL) #341) 

ON X GOTO 790,840,910 
XSINT(RHD(1) #249) 

ON X GOTO 790,860 

IF S<>V THEN 490 

IF Z=1 THEN 520 
Q«1:G0T0 500 

IF W(R,9412<20 THEN 520 
XSINTCRND C8249) 

ON X GOTO 790,910 

BOTO 790 

IF S-t=0 THEN 670 

IF WER,S-1)<>0 THEN 670 
IF R=H THEN 610 

IF W(R+E,5)<>0 THEN 610 
IF S<>U THEN 560 

IF 231 THEN 590 
Q=t:60T0 570 

IF W(R,S#1)<>0 THEN 590 
XEINTCRND (1) 0341) 

ON X OOTO 820,860,910 
XEINTCRNDOL) #241) 

ON X GOTO 820,860 

IF SC>U THEN 630 

IF Z=1 THEN 660 
G=1:G0TO 440 

IF MUR, 5412490 THEN 660 
XINTCRND(1)#2+1) 

ON X BOTO 820,910 


3 


TRY 


660 
470 
680 
685 
690 
695 
700 
710 
720 
730 
740 
750 
755 
760 
770 
780 
790 
800 
B10 
ats 
820 
830 
840 
850 
840 
870 
875 
880 
870 
900 
905 
910 
920 
930 
940 
950 
955 
960 
970 
975 
980 


AGAIN." :G0TO 100 


GOTO 820 

IF R=H THEN 740 

IF WCR+1,5)<>0 THEN 740 

IF SQV THEN 700 

IF Z=t THEN 730 

G=1:G0TO 830 

IF UCR,S44)<>0 THEN 730 
XEINTCRND(1) 8241) 

ON X GOTO 860,910 

GOTD 860 

IF SQV THEN 760 

IF Z=t THEN 780 

Q=1:G0T0 770 

IF WCR,S#1)<>0 THEN 780 
Goro 910 

GOTO 1000 

WOR-1,5)5C 
CCt1s¥(R-1,$)=2:R=R~1 

IF CHeV+! THEN 1010 
Q=0:G0T0 260 

VER, 8-1 )5C 

ceC+1 
ViR,S-1)512S=S-1s1FCHeV4t THEN 1010 
0=0:G0T0 260 

UER#T,S)=C 

CeC+tiIF ¥(R,S)=0 THEN 880 
VIR,S)=3:60T0 990 

V(R,S)=2 

RER+1 

IF CoHeV41 THEN 1010 

GOTO 530 

IF O21 THEN 960 

W(R, St =CeC=C+ts IF VR, 9220 THEN 940 
VIR, S)=3:G0T0 950 

vin, S)#t 

SeStirIF C=Hs¥+1 THEN 1010 
GOTO 260 

z=1 

IF V(R,S)=0 THEN 980 
V(R,5)=3:020:G0TO 1000 
V(R,S)=120803R=1:521:00T0 250 


1000 GOTO 210 
1010 FOR J=1 TO ¥ 


101t 


PRINT “E"5 


1012 FOR I=1 TO H 
1013 IF V(I,d)<2 THEN 1030 
1020 PRINT * = "3 


1021 


GOTO 1040 


1030 PRINT " 1°; 
1040 NEXT I 


1041 


PRINT 


1043 FOR I=) 10H 
1045 IF V(I,J)=#0 THEN 1040 
1050 IF V(I,J)=2 THEN 1060 


1051 


PRINT“: "3 


1052 GOTO 1070 
1060 PRINT “s--"; 
1070 NEXT I 


1071 


PRINT."." 


1072 NEXT J 
1073 END 


Animal 


Unlike other computer games in 
which the computer picks a number or 
letter and you must guess what it is, in 
this game you think of an animal and 
the computer asks you questions and 
tries to guess the name of your animal. 
If the computer guesses incorrectly, it 
will ask you for a question that differen- 
tiates the animal it guessed from the 
one you were thinking of. In this way 
the computer “learns” new animals. 
Questions to differentiate new animals 
should be input without a question 
mark. 

This version of the game does not 
have a SAVE feature. If your system 
allows, you may modify the program to 
save array A$, then reload the array 
when you want to play the game again. 
This way you can save what the 
computer learns over a series of 
games. 

At any time if you reply “LIST” to the 
question “ARE YOU THINKING OF AN 
ANIMAL,” the computer will tell you all 
the animals it knows so far. 

The program starts originally by 
knowing only FISH and BIRD. As you 
build up a file of animals you should 
use broad, general questions first and 
then narrow down to more specific 
ones with later animals. For example, if 
an elephant was to be your first animal, 
the computer would ask for a question 
to distinguish an elephant from a bird. 
Naturally there are hundreds of 
possibilities, however, if you plan to 
build a large file of animals a good 
question would be “IS IT A MAM- 
MAL.” 

This program can be easily modified 
to deal with categories of things other 
than animals by simply modifying the 
initial data in Line 530 and the dialogue 
references to animal in Lines 10, 40, 50, 
130, 230, 240, and 600. In an 
educational environment, this would 
be a valuable program to teach the 
distinguishing characteristics of many 
classes of objects — rock formations, 
geography, marine life, ceil structures, 
etc. 

Originally developed by Arthur 
Luehrmann at Dartmouth College, 
Animal was subsequently shortened 
and modified by Nathan Teichholtz at 
DEC and Steve North at Creative 
Computing. 


ANIMAL 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


PLAY “GUESS THE ANIMAL’ 
THINK OF AN ANIHAL AND THE COMPUTER WILL TRY TO GUESS IT. 


ARE YOU THINKING OF AN ANIKALT Y 

DOES IT SUIH? NO 

IS IT A BIRD? NO 

THE ANTHAL YOU WERE THINKING OF WAS A 1 ELEPHANT 
PLEASE TYPE EN & QUESTION THAT WOULD DISTINGUISH A 
ELEPHANT FROW A BIRD 

7 DOES IT LIKE PEANUTS 

FOR A ELEPHANT THE ANSWER WOULD BE 7 YES 

ARE YOU THINKING OF AN ANIMAL? YES 

DOES IT SWIM? YES 

18 IT A FISHT NO 

THE ANIMAL YOU WERE THINKING OF WAS A 1 SEAL 
PLEASE TYPE IW A QUESTION THAT WOULD DISTINGUISH A 
SEAL FROM A FISH 

1 DOES IT HAVE SCALES 

FOR A SEAL THE ANSWER WOULD BE f NO 

ARE YOU THINKING OF AN ANIMAL? YES 

DOES IT SUIN? NO 

DOES IT LIKE PEANUTS? NO 

IS IT A BIRD? NO 

THE ANIMAL YOU WERE THINKING OF WAS A ? LION 
PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A 
LION FROM A BIRD 

1 DOES IT ROAR 

FOR A LION THE ANSWER WOULD BE 7 YES 

ARE YOU THINKING OF AN ANIMAL? YES 

DOES IT SWIM? YES 

DOES IT HAVE SCALES? NO 

18 IT A SEAL? NO 

THE ANIMAL YOU VERE THINKING OF WAS A 7 OCTOPUS 
PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A 
OCTOPUS FROM A SEAL 

1 DOES IT HAVE EIGHT TENTACLES 

FOR A OCTOPUS THE ANSWER WOULD BE 7 YES 

ARE YOU THINKING OF AK ANIMALT YES 

DOES IT SUEHT NO 

DOES IT LIKE PEANUTS? YES 

1S 17 @ ELEPHANT? YES 

WHY WOT TRY ANOTHER ANIMAL? 

ARE YOU THINKING OF AN ANIMAL? YES 

DOES IT SWIM? NO 

DOES IT LIKE PEANUTS? NO 

DOES IT ROART NO 

1S IT A BIRD? NO 

THE AHIMAL YOU WERE THINKING OF WAS A ? WUMPUS 
PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH 4 
WUMPUS FROM A BIRD 

7 19 17S LAST NAME YOB 

FOR A WUKPUS THE ANSWER WOULD BE ? YES 

ARE YOU THINKING OF AN ANIMALT LIST 


ANIMALS I ALREADY KNOW ARE: 
ELEPHANT FISH LION SEAL OCTOPUS 
WURPUS 


ARE YOU THINKING OF AN ANIMAL? NO 
ARE YOU THINKING OF AN ANIMAL? 


BREAK IN 130 
OK 


erreeeneearsemmsunqesnnaneen netnmaN Gennes henner re 


BIRD 


10 
20 
30 


PRINT TAB(32);"ANINAL” 
PRINT TAB(1S); "CREATIVE COMPUTING MORRISTOWN, NEY JERSEY” 
PRINT: PRINT: PRINT 
PRINT “PLAY “GUESS THE AWIWAL’* 
PRINT “THINK OF AN ANINAL AND THE COMPUTER WILL TRY 10 GUESS IT." 
PRINT 

DIM A$¢200) 
FOR I=0 TO 3 
READ AS(I) 

NEXT I 

WaVAL(AS(0)) 

REM WAIN CONTROL SECTION 

THPUT “ARE YOU THINKING OF AN ANIMAL"; A$ 

IF AS="LIST" THEN 600 

IF LEFTS(A$,1)<>"Y" THEN 120 

Ket 

G0SUB 376 

IF LENCAS(K))=0 THEN 999 

IF LEFTSCAS(K),2)="\Q" THEN 170 

PRINT “IS IT A "SRIGHTS(AS(K) LENCAS(K) )-2)3 

INPUT A$ 

AS@LEFTS(AS,1) 

IF A$="Y" THEN PRINT “WHY NOT TRY ANOTHER ANIMALT": GOTO 120 
INPUT "THE ANIMAL YOU WERE THINKING OF UAS A "sV$ 

PRINT “PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A* 
PRINT VSS" FROM A “FRIGHTS(AS(K) LENCAS(K))~2) 

INPUT X$ 

PRINT “FOR A “3V$5" THE ANSWER WOULD BE *; 

INPUT A$ 

ASSLEFTS(AS,1)2 IF AS<>"Y" AND AS<>°N" THEN 280 

IF AS="Y" THEN B$="N* 

IF AS="N" THEN BS="y" 

ZI=VAL(AS(0)) 

AS(OD=STRO(Z142) 

AS(ZT)SAS(K) 


360 
370 
390 
390 
400 
410 
4is 
420 
430 
440 
450 
ass 
460 
470 
475 
480 
490 
500 
505 
510 
520 
330 
600 
605 
410 
$20 
624 
$30 
640 
Sas 
650 
660 
470 
$80 
999 


AS(Z141 VAM HUS 
AS(K)S*\Q"HXSE°\ "FAS4STRE (ZIFF “\"FBSESTRE (ZED EMV" 
OTD 120 

REN «SUBROUTINE TO PRINT QUESTIONS 

QS=AS(K) 

FOR Z=3 TO LEN(OS) 

IF HEDS(O$,Z,1)<>"\" THEN PRINT HIDS(Q$,Z,1)32 NEXT Z 
INPUT C$ 

CS=LEFTS(CS,1) 

IF C8<>*Y* AMD C80>"H" THEN 410 

TS2"*\"5C8 

FOR X=3 TO LENCOS)~1 

IF HID$(Q9,X,2)=T8 THEN 480 

NEXT X 

sToP 

FOR Y=X+t TO LEN(OS) 

IF HIDS(O8,Y,f)="\" THEN 510 

NEXT Y 

STOP 

K2VAL (HIDS(O$ X42, Y-X-2)) 

RETURN 

BATA "4","\QDOES 17 SUIM\Y2\N3\", “\AFISH", "\ABIRD* 
PRINT: PRINT “ANIHALS I ALREADY KNOW ARES” 

X=0 

FOR I=t TO 200 

IF LEFTS(AS(1),2)0>"\A" THEN 650 

PRINT TABCI29X)3 

FOR 2=3 TO LENCAS(E)) 

IF MEDS(AS(1),Z,1)0"\" THEN PRINT MIDS(AS(T),Z,1953 NEXT Z 
XeXt¢12 IF XO5 THEN X=02 PRINT 

NEXT I 

PRINT 

PRINT 

GOTO 120 

END 


 Awari 


My Side 


6 5 4 3 2 
000 | 000 | 000 | 000 | 000 
My 
Home 
000 | 000 | 000 | 000 | 000 
1 2 3 4 5 


Your Side 


Awari is an ancient African game 
played with seven sticks and thirty-six 
stones or beans laid out as shown 
above. The board is divided into six 
compartments or pits on each side. In 
addition, there are two special home 
pits at the ends. 

A move is made by taking all of the 
beans from any (non-empty) pit on 
your own side. Starting from the pit to 
the right of this one, these beans are 
‘sown’ one in each pit working around 
the board anticlockwise. 

A turn consists of one or two moves. 
If the last bean of your move is sown in 
your own home you may take asecond 
move. 

If the last bean sown in a move lands 
in an empty pit, provided that the 
opposite pit is not empty, all the beans 
in the opposite pit, together with the 
last bean sown are ‘captured’ and 
moved to the player’s home. 

When either side is empty, the game 
is finished. The player with most beans 
in his home has won. 

In the computer version, the board is 
printed as 14 numbers representing the 
14 pits. 

333 3 3 3 
0 0 
3333 3 8 


The pits on your (lower) side are 
numbered 1-6 from left to right. The 
pits on my (the computer’s) side are 
numbered from my left (your right). 

To make a move you type in the 
number of a pit. If the last bean lands in 
your home, the computer types 
‘AGAIN?’ and you then type in your 
second move. 

The computer's move is typed, 
followed by a diagram of the board in 
its new state. The computer always 
offers you the first move. This is 
considered to be a slight advantage. 

There is a learning mechanism inthe 
program that causes the play of the 
computer to improve as it plays more 
games. 

This version of Awariis adopted from 
one originally written by Geoff Wyvill of 
Bradford, Yorkshire, England. 


000 
Your 
Home 
000 
6 \ 


AUART 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


MY HOVE IS 2 
3 4 4 4 4 ~=4 
0 1 
$3 39 9 3 0 4 


YOUR HOVE? 4 


MY HOVE IS 4 
0 5 0 0 0 4 
6 7 
0 4 4 0 1 ~=5 


YOUR MOVE? J 


6 8 
oO 4 0 1 2 4 
AGAIN? § 
® 5 0 0 0 4 
é ? 
0 4 0 1 0 =? 
MY HOVE IS 5 
' 0 0 0 0 4 
? 9 
' 5 3 ' oO ? 


YOUR HOVE? 2 


AGAINT 3 


NY HOVE IS 6,1 

o1 4 
8 

1 6 0 3 


YOUR HOVE? 5 


o ft 1 1 
8 
1 0 @ 3 
AGAIN? 4 
o ff a1 ft 
‘) 
1 0 @ 0 
MY HOVE IS 5 
o Oo 1 1 
10 
o 0 0 0 


YOUR HOVE? 4 


1 0 2 2 
iB 
1 0 60 9 
HY HOVE IS 4,4 
o 1 0 2 
14 
o 0 0 6 


YOUR HOVE? § 


o 1 oO 2 
14 

0 0 0 0 
GAHE OVER 


YOU WIN BY 3 POINTS 


3 3 9 3 
0 
3 3 3 3 
YOUR HOVE? 


BREAK IN 110 


10 


7 


S PRINT TAB(34);"AWARI" 

7 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
10 DATA 0 

15 DIM B(H3),G(19),F(50):READ N 

20 PRINTSPRIRTIE=0 

25 FORI=0 TO 12:B(I)=3:NEXT I 

30 CaOrF CH) 9OsBC13)502B(4)20 

35 GOSUB 500 

40 PRINT “YOUR NOVE"3:GOSUB 110 

45 IF E=0 THEN 80 

30 IF M=H THEN GOSUB 100 

55 IF E=0 THEN 80 

60 PRINT “HY HOVE IS "7:GOSUB g00 

65 IF E=0 THEN 80 

70 IF M=H THEN PRINT °,"3:GOSUB 800 

75 IF E>0 THEN 35 

80 PRINTsPRINT"GANE QVER” 

85 DeB(6)-BCtS)s1F D<O THEN PRINT “I WIN BY" s-De"POINTS*sGOTO 20 
90 N=N+tSIF D=0 THEN PRINT "DRAUN GAHE":GOTO 20 
95 PRINT “YOU WIN BY"ZDs"POINTS":GOTO 20 

100 PRINT “AGAIN"; 

110 INPUT MsIF WX? THEN IF H>O THEN N=H-1:60T0 130 
120 PRINT “ILLEGAL HOVE":80TO 100 

130 IF B(K)=0 THEN 120 

140 H=6:GOSUB 200 

150 6070 500 

200 K=H:GOSUB 600 

205 E=071F K>4 THEN KaK-7 

210 CeC+isIF C<9 THEN FCND=F (ND 864K 

215 FOR 1=0 TO Self B(1)<>0 THEN 230 

220 NEXT I 

225 RETURN 

230 FOR T=7 TO 122IF B(1)<>0 THEN E=1sRETURN 
235 GOTO 220 

500 PRINTsPRINT"  “s 


505 
510 
St5 
520 
525 
530 
535 
580 
585 
600 
605 
6t0 
615 
620 
625 
800 
805 
B10 
als 
820 
825 
830 
835 
840 
845 
850 
a55 
860 
870 
875 
480 
a85 
890 
900 
999 


FOR 1©12 10 7 STEP -1;G0SUB 580 
WEXT I 

PRINT: 1313;GO0SUB 580 

PRINT ° 

FOR 120 TO 5:G0SUB 580 
NEXT I 

PRINTSPRINTsRETURN 

IF BUI)<10 THEN PRINT " "3 
PRINT BCI); :RETURN 

P=B(M) BCH) =O 

FOR P=P TO ¢ STEP -tsM@MtieIF M>13 THEN M=N-14 

BUM =BCND +1 NEXT P 

TF BCM)=1 THEN IF HC>6 THEN IF MX>13 THEN IF BC12-4)<>0 THEN 425 
RETURN 

BCH) =BCH)+B( 12-8) +1 2B(H) 20231 2-H) 0 8RETURN 

D=-99sHeld 

FOR 1=0 TO 13:GCT)=BCL) SNEXT I 

FOR J=7 TO 12:1F B(J)=0 THEN 885 

G=02N=Js605UB 600 

FOR I=0 TO SsIF 9(1)=0 THEN 645 

L=B(L)+1sR=0 

IF Lota THEN L=L-14:R=1:G0T0 930 

IF B(L)20 THEN IF L<>6 THEN IF L<>13 THEN R=B(12-L)4R 

TF R>O THEN Q=R 

WEXT I 

G=B(13)-B(6)~-Q21F C8 THEN 875 

KeJsIF K>é THEN Kek~7 

FOR I=0 TO N-t2IF FOND S6+K=INT(F(T)/6°(7-C)4+.1) THEN G=0-2 

NEXT I 

FOR I=0 TO 13:B(I 
TF O>=D THEN A=J: 
WEXT J 

M=ASPRINT CHRS$(42+4);:G0TO 200 
FOR 120 TO N-VsPREINTB(I) SNEXT 1 


"SSPRINT B(S)sPRINT "  “S 


YEGCL)ENEXT I 
b=0 


END 


In this game, the computer picks a3- 
digit secret number using the digits 0 to 
9 and you attempt to guess what it is. 
You are allowed up to twenty guesses. 
No digit is repeated. After each guess 
the computer will give you clues about 
your guess as follows: 


PICO One digit is correct, but in 
the wrong place 

FERMI One digit is in the correct 
place 

BAGELS _ No digit is correct 


You will learn to draw inferences 
from the clues and, with practice, you'll 
learn to improve your score. There are 
several good strategies for playing 
Bagels. After you have found a good 
strategy, see if you can improve it. Or 
try a different strategy altogether and 
see if it is any better. While the program 
allows up to twenty guesses, if you use 
a good strategy it should not take more 
than eight guesses to get any number. 

The original authors of this program 
are D. Resek and P. Rowe of the 
Lawrence Hall of Science, Berkeley, 
California. 


BAGELS 
CREATIVE COMPUTING NORRISTOUN, NEW JERSEY 


WOULD YOU LIKE THE RULES (YES OR NO)? YES 


1 AM THINKING OF A THREE-DIGIT NUMBER. TRY TO GUESS 


NY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOUS: 


PICO ~ ONE DIGIT CORRECT BUT IN THE WRONG POSITION 
FERMI ~ ONE DIGIT CORRECT AND IN THE RIGHT POSITION 


BAGELS ~- NO DIGITS CORRECT 


O.K. IF HAVE A NUMBER IN MIND. 


GUESS # 1 7123 GUESS #1 T 456 
FERHI PIco 
GUESS # 2 7 724 GUESS # 2 4123 
PICO FERHI FERMI 
GUESS # 3 t 167 
PERAT FER * a2 YOU GOT IT!!! 
FERMI FERNI it! 
GUESS # 4 7 927 
FERMI FERMI PLAY AGAIN (YES OR NOT YES 
YOU GOT Tritt "62 Q.K. I HAVE A NUMBER IN HIND. 
_ GUESS @ 1 7 159 
BAGELS 
d? YES 
PLAY AGAIN (YES GR NO GUESS # 2 22a? 
7 Pica 
Q.K. I HAVE @ NUMBER IN MIND. GUESS 43 1308 
GUESS #1 % 98? 
aueSS. GUESS 447-476 
Ico ne Ts PICO FERMI 
GUESS #3 1 236 GUESS # 4 > 407 
PICO FERHI 
PICO PICO 
GUESS # 4 7 613 GUESS # 6 7 740 
PICO PICO FERHI 
GUESS 4 5 7 427 GUESS a 7 7704 
PICO Pico 
FERNI FERMI 
GUESS & 8 ? 406 
GUESS # 6 ? 328. 
PICO PICO FERMI 
FERMI FERMI 
GUESS W 9 7 404 
GUESS # 7 ? 329 
FERMI FERMI PICO PICO PICO 
GUESS H tO) =? 460 


GUESS & 8 % 425 


i 
You GOT ITIHI You Gor ITtt! 


PLAY AGAIN (YES OR NO)? NO 


PLAY AGAIN (YES OR NOD? YES 


4&4 POINT BAGELS BUFF!! 


Q.K. I HAVE A NUMBER IN HIND. HOPE YOU HAD FUN. 


BYE. 


5 FP 
10 

15 

20 

25 

30 

40 

30 

70 

90 

100 
110 
120 
130 
140 
150 
160 
165 
170 
180 
190 
200 
210 
220 
230 
240 
245 
250 
260 
270 
280 
265 
290 
295 
300 
310 
320 
330 
340 
330 
360 
470 
380 
370 
400 
410 
420 
430 
440 
430 
460 
470 
480 
470 
500 
505 
520 
530 
540 
545 
550 
540 
570 
580 
570 
600 
605 
610 
615 
420 
640 
650 
640 
680 
690 
700 
720 


RINT TAB(33) ; "BAGELS" 
PRINT TAB(15)3"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
REN ##* BAGLES NUMBER GUESSING GANE 
REM ##* ORIGINAL SOURCE UNKNOWN BUT SUSPECTED TU BE 
REM #8 LAURENCE HALL OF SCIENCE, U.C. BERKELY 
DIM A106), A(3),B(3) 
¥=0:T=255 
PRINTsPRINTSPRINT 

INPUT “WOULD YOU LIKE THE RULES (YES OR NO)"3AS 
IF LEFTS(AS,1)="N" THEN 150 

PRINT:PRINT “I AM THINKING OF A THREE~DIGIT NUMBER. TRY To GUESS" 
PRINT “HY NUKBER AND I WILL GIVE YOU CLUES aS FOLLOUS:" 
PRINT “ PICO ~- ONE DIGIT CORRECT BUT IN THE WRONG POSITION" 
PRINT * FERMI ~ ONE DIGIT CORRECT AND IN THE RIGHT POSITION" 
PRINT “ BAGELS - WO DIGITS CORRECT" 

FOR I=1 10 3 

ACLSINT(108RND (1)? 

IF I-1=0 THEN 200 

FOR J=1 10 I-1 

IF ACL)SA(J) THEN 160 

NEXT J 

NEXT 1 

PREINTSPRINT “O.K. I HAVE A NUMBER IN HIND." 

FOR I= TO 20 

PRINT "GUESS #51, 

INPUT A$ 

IF LEN(A$)<>3 THEN 630 

FOR Z=1 TO 32A1(Z)=ASC(MEDS(AS,2,1)):NEXT Z 

FOR Jet 10 3 

IF AN(J)<48 THEN 300 

IF ai(J)>57 THEN 300 

BCIEAL(J)-48 

NEXT J 

60TO 320 

PRINT "WHAT?" 

GOTO 230 

IF B(1)=B(2) THEN 650 

IF B(2)=B(3) THEN 650 

IF B(Z)=B(1) THEN 450 

C=0:D=0 

FOR J=1 TO 2 

IF ACJX>BCJ+1) THEN 390 

cect 

IF ACJ+I2<>BCS) THEN 410 

ceeet 

NEXT J 

IF AUL)COB(3) THEN 440 

cect 

IF AC3)<>BC1) THEN 460 

c=C+ 

FOR J=t 10 3 

IF ACJ)C>BCJ) THEN 490 

D=D+4 

NEXT J 

IF D=3 THEN 680 

IF C20 THEN 545 

FOR J=1 10 C 

PRINT "PICO *; 

NEXT J 

IF D=0 THEN 580 

For J=1 10 D 

PRINT “FERMI “; 

NEXT J 

IF C+D<>0 THEN 600 

PRINT "BAGELS"; 

PRINT 

NEXT I 

PRINT “OH WELL“ 

PRINT “THAT“S TWENTY GUESSES. MY NUMBER WAS"; 100%A(1)410#A(2}4A(3) 
GOTO 700 

PRINT “TRY GUESSING A THREE-DIGIT NUNBER.":G010 230 
PRINT “OH, I FORGOT TO TELL YOU THAT THE NUMBER I HAVE IN HIND" 
PRINT “HAS NO TWO DIGITS THE SANE.“:G0TO 230 

PRINT “YOU GOT ITHLI"sPRINT 

Ye¥+l 

INPUT “PLAY AGAIN (YES OR NO)";AS 

IF AS="YES" THEN 150 

1F Y=0 THEN 750 

PRINTSPRINT “A"SY;"POINT BAGELS BUFF IE" 

PRINT “HOPE YOU HAD FUN, BYE." 

END 


Banner 


This program creates a large banner 
on a terminal of any message you 
input. The length of the message may 
be as long as a string variable permits 
in your version of BASIC. The letters 
may be any dimension you wish 
although the letter height plus distance 
from left-hand side should not exceed 
6 inches. Experiment with the height 
and width until you get a pleasing 
effect on whatever terminal you are 
using. The permissable letters and 
characters are defined in the data 
statements 899 through 940. 

Many people seem to have trouble 
getting this program to work, however, 
after thorough checking we guarantee 
that the version presented have runs 
correctly. We suspect the problem is 
dependent upon the Basic itself and 
the way it reads and restores data files. 

This program was written by 
Leonard Rosendust of Brooklyn, New 
York. 


CREATIVE COMPUTING NORRISTOWN, NEW JERSEY 


VO INPUT “HORIZONTAL";X 

20 INPUT “VERTICAL";Y 

21 INPUT "“CENTEED"SL$ 

22 Gis0: IF L$s"P" THEN Gi=1 
23 

29 


INPUT “CHARACTER (TYPE “ALL“ IF YOU WANT CHARACTER BEING PRINTED)"; M$ 


PRINT "STATEMENT"; 
30 INPUT AS 
35 INPUT “SET PAGE" ;O$ 
40 ANASC(LEFT$(A$,1)) 
50 REA 
60 REK 
70 FOR T=! TO LENCAS) 
80 Pe2N1D$(As,T,1) 
90 FOR O=t TO 50 


95 READ S$,S(1),5(2),S(3),9(4),5(5),5(6) ,9(7) 


96 IF Paa" * THEN 812 

100 IF P$=S$ THEN 200 

120 NEXT 0 

200 RESTORE 

201 X$=H$ 

202 IF M$="ALL" THEN X$=99 
205 FOR U=t TO 7 

210 FOR K=8 TQ 0 STEP ~1 
230 IF 2°K<S(U) THEN 270 
240 JC9-K)=0 

250 GOTO 280 

270 JCP-K)=ts SCU)=S(U)-2°K 
272 TF S(Ud=) THEN 815 

280 NEXT K 


AAS 

aa? 

450 

460 

465 

470 

500 
510 
520 
530 
600 
620 
630 
700 
750 
800 
804 
810 
812 
ata 
815 
are 
900 
901 

902 
903 
904 
705 
906 
907 
9708 
907 
910 
oti 

912 
913 
14 
915 
var.) 
917 
918 
WN? 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
ces) 

932 
933 
934 

935 
936 
937 
938 
93? 
940 


FOR T1=1 10 X 

PRINT TAB (63-4. 597 )461/(LEN(XS) #17 
FOR Bet TO F(U) 

IF 4(B)=0 THEN 500 

FOR T=1 10 Yr PRINT X82 NEXT I 

GOTO 600 

FOR I=1 10 Y 

FOR Li=t TO LEN(X$) 

PRINT “ *3: NEXT Li 

NEXT I 

NEXT B 

PRINT 

NEXT T1 

NEXT U 

FOR Hal TO 26Xz PRINT: EXT H 

NEXT T 

FOR Het TO 7S: PRINT: NEXT H 

END 

FOR H=1 TO 76Xs PRINT: NEXT H 

GoTo 800 

F(U)=9-Kz GOTO 445 

DATA “ “,0,0,0,0,0,0,0 

DATA “A“,505,37,35,44,35,37 805 

DATA “G",125,131,258,258,290, 143, 101 
DATA "E”,512,274,274, 274,274,258, 258 
DATA “T",2,2,2)512)2)2p2 

DATA “WU”, 256,257,129,65, 129,257, 256 
DATA “L",512,257,257, 257,257 257, 257 
DATA "S",6%,139,274,274,274, 163,69 
DATA “O", 125,131, 258,258,258, 131,125 
DATA "W",512,7,9,17,33, 193,512 

DATA “F",512,18,18,18,18,2,2 

DATA "K",512,17,17,41,69, 131, 258 
DATA “B“,512,274,274,274,274, 274,239 
DATA "D",512,256, 258,258,258, 131,125 
DATA “H",512,17,47,17,17,17,512 

DATA “HY ,512,7,13,25,13,7,512 

DATA "7",5,3,2,354, 18, 11,5 

DATA “U", 128, 129,257,257 ,257, 129,128 
DATA “R",512,18,18,50,82,144,271 
DATA "P",512, 18, 18,18, 18,18, 15 

DATA "O",125, 131,258, 258,322,131, 381 
DATA "Y",8,9,17,481,17,9,8 

DATA "VU", 64,465, 129, 257,129,45,44 
DATA "X",388,69,41,17,41,49, 388 

DATA “Z",386,322,290,274,266,262, 260 
DATA “I", 258,258, 250,512,258, 258,258 
DATA "C",125,131,258,258, 258, 131,49 
DATA "J", 65,127,257, 257,257,129, 128 
DATA “1",0,0,261,259, 512,257,257 
DATA "2",261,387,322,290 274,267,261 
DATA “9",67,41,17,512,17,41,69 

DATA "3", 66,130, 258,274,266, 150,100 
DATA “4",33,49,41,37,35,512, 33 

DATA "5", 160,274,274, 274,274,274, 226 
DATA "6",194,291,293,297,305, 289,193 
DATA "7",258,140,66,34,18,10,8 

DATA "@", 69,171,274, 274,274, 171,49 
DATA "9",263,138,74,42,26,10,7 

DATA “=",41,41,41,41,41,41,41 

DATA “!",1,1,1,384,1,1,1 

DATA “O",57,69,131,258, 131,69, 57 
DATA "2", 1,1,129, 449,129, 1,1 


1000 STOP 
1002 END 


33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33733 33333 33333 
33333 33333 33333 
33333 73333 33333 
33333 33333 33333 


33339339533333I3F39I33933IFFIIIIIIIIIIIIIIIIIII 
333393333333323333333333333333333333333233333 
9993393333393333333333333333333333333393I993333 


AAAAAARAAAARARAAAAAAAAAAAAAAAA 
AAAAAAAARAAAAAANBAAAANAAARAAAA 
ADAAAAAAAAAADAAAAARAMAAAAAAA 


AnSAA 
ADAAA 
AAADA 
AAAAA 
Annan 
anAah 
AAAaA 
anADA 
AAAAK 
AAA 
AANAA 
AANA 
AAAAA 
AAABA 
ABAARAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAOAAAAANAARBAAAAAADAAABAABAA 
AANARAAAAADAANAANARAAARAARAADA 
popeei TW 
W1 Win 
Iii II! 
Hin MII 
posse TIT 
WUT MI 
Wn MI 
pees MMI 
MUI MIM 


peseaesesocecestesesecssereseesesessecs bese ee 
p08990995599005550590529289950205025029059095 
YILITIDIDEVILEETILIVILITIQULILTIETILIIIIIIGIT 


33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 32333 33333 
33333 33333 33333 
33333 33333 33333 
93333 33333 39333 
33333 33333 33333 
33333 33333 7a333 
33333 33333 32333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
9393329393393939939999933939999993993933933933 bunt 
339333933993993333999393933339993993999999 93 tu 
3333939333933333393333339393993399399999 993333 tite 
LLL 
un 
ALLL 
ML 
tut 
wuuuauueusesey ve Al 
auauavuauuaauee tine SUNSTUSEUSEUSTESUSSUUESVSVENSUSTSSUNSENTTTNST! 
suugugusauuyaey ii LUAU 
aves aeees wanes SUSUSVENVSTESTVTOTNENUSSUSEVETINTSISETENTTS 
lil 
wauus wasn wanes vit 
waaay ewes way iin 
auyyy TT ToT hut 
wasae eases wae nul 
wuays way BURR us 
wey suaaueaNes titi 
waaue ERRNTEINE Mii 
wage eaenaaay titi 
rrr 8382 
wenn wasya 
wanes wane 
wasus aa4Es 
vagus wa 
wasey waaay 
exuuvaueaseateaveuveuveuvouvanvarvaniexdediee vevrorwvvvwvwvevynveveMveNNY 
MyM NaUNNTT AVANT VAAN AT ANTE NT ABS NU ARAN hdd dceleehe leh 
weevvevvovereruyyuuuNYUNUUEY 
wevuy vee 
wevuy wouy 
wewy wey 
vvevy wey 
wey wey 
39293 99999 wow wee 
39323 39399 vyyey www 
33999 3993 we wy 
99993 99999 eveey vwey 
93999 92933 wee wy 
33393 39393 wou wey 
39399 39993 vevey 
39933 39939 weevy vues 
39939 39999 wun weve 
vevve wu 
39999 99393 
39939 33 wevoveuvuuvueveuvoyveNveNviNNY 
39909 39332 wyevuvyvevyvyveNevENVONvoNEY 
39999 mn vevevusveuveyvoNyYeENUEYEHuEY 
39939 39922 
39999 39999 
39999 39999 
39393 99393 
93993 39933 


9993933933333333932933333) 


2999933939333333939333933 
9939333939399999339339393 


M1 III 
WII TT 
Tir IQ! 
HIT II! 
Wu Wl 
WHI HII 
pebsst THI 
Oi TIT 
W1 pacese 


ene nr mn a ma MANN NR RN 


HORIZONTAL? 3 
VERTICALY 5 


CENTERED? # 


CHARACTER (TYPE ‘ALL’ IF YOU WANT CHARACTER BEING PRINTER? ALL 


STATEMENT? CREATIVE 


SET PAGE? 


11 


Basketball 


This program simulates a game of 
basketball between Dartmouth College 
and an opponent of your choice. You 
are the Dartmouth captain and control 
the type of shot and defense during the 
course of the game. 

There are four types of shots: 
1. Long Jump Shot (30 ft.), 2. Short 
Jump Shot (15 ft.), 3. Lay Up, and 
4. Set Shot. Both teams use the same 
defense, but you may call it: Press (6), 
Man-to-man (6.5), Zone (7), or None 
(7.5). To change defense, type “0” as 
your next shot. 

Note: The game is biased slightly in 
favor of Dartmouth. The average 
probability of a Dartmouth shot being 
good is 62.95% compared to a 
probability of 61.85% for their oppo- 
nent. (This makes the sample run 
slightly remarkable in that Cornell won 
by a score of 45 to 42. Hooray for the 
Big Red!) 

Charies Bacheller of Dartmouth 
College was the original author of this 
game. 


BASKETBALL 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


Lay UP. 
SHOT IS MISSED. 
DARTHOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 3 

LAY UP. 

SHOT 18 GOOb. TWO POINTS, 
SCORE: 4 701 


LAY UP. 
SHOT IS NISSED. 
DARTMOUTH CONTROLS THE REBOUND. 


LAY UP. 
SHOT IS MISSED. 
DARTMOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 4 

SET SHOT. 

SHOT 1S OFF THE RIN. 

CORNELL CONTROLS THE REBOUND. 


SET SHOT. 

SHOT IS MISSED. 

CORNELL CONTROLS THE REBOUND. 
PASS BACK TO CORNELL GUARD. 


JUMP SHOT. 
SHOT IS OFF RIN. 
DARTMOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 2 
JUMP SHOT 
SHOT IS GOUD. 
SCORE: 6 701 


SET SHOT. 

SHOT IS KISSED. 

CORNELL CONTROLS THE REBOUND. 
PASS BACK TO CORNELL GUARD. 


Later in the game.... 


YOUR SHOT? 4 

SET SHOT. 

SHOT IS GOOB. TWO POINTS. 
SCORE: 37 10 39 


JUNP SHOT. 
SHOT IS GOOD. 
SCORE: 37 [0 41 


YOUR SHOT? 2 

4UHP SHOT 

SHOT IS OFF TARGET. 

DARTHOUTH CONTROLS THE REBOUND. 


BALL PASSED BACK TO YOU. YOUR SHOT? 1 


4UHP SHOT 


SHOT IS BLOCKED, BALL CONTROLLED BY DARTMOUTH. 


YOUR SHOT? 2 
JUMP SHOT 
SHOOTER IS FOULED, TWO SHOTS. 


SHOOTER HAKES ONE SHOT AND MISSES ONE. 


SCORE: 38 TO 41 


JUMP SHOT. 
SHOT IS OFF RIK. 
DARTMOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 3 
LAY UP. 
SHOT BLOCKED. CORNELL’S BALL. 


JUMP SHOT. 
SHOT IS OFF RIK. 
DARTMOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 

LAY UP. 

SHOT IS GOOD. TWO POINTS. 
SCORE: 40 TO 41 


THIS IS DARTMOUTH COLLEGE BASKETBALL. YOU WILL BE DARTHOUTH JUMP SHOT. 
CAPTAIN AND PLAYMAKER. CALL SHOTS AS FOLLOWS: 1. LONG SHOT IS OFF RIM. JUMP SHOT, 
(30 FT.) JUMP SHOT; 2. SHORT (15 FT.) JUMP SHOT; 3. LaY DARTMOUTH CONTROLS THE REBOUND. PLAYER FOULED. TWO SHOTS. 
UP; 4. SET SHOT. BOTH SHOTS HISSED. 
BOTH TEAMS WILL USE THE SAME DEFENSE. CALL DEFENSE aS YOUR SHOT? 4 SCORE: 40 TO 41 
FOLLOUS: 4. PRESS; 4.5 NAN-T0 MAN; 7. ZONE; 7.5 NONE. SET SHOT. 
TO CHANGE DEFENSE, JUST TYPE © AS YOUR NEXT SHOT. SHOOTER FOULED. TWO SHOTS. YOUR SHOT? 3 


YOUR STARTING DEFENSE WILL BEY 7 


CHOOSE YOUR OPPONENT? CORNELL 
CENTER JUNP 
CORNELL CONTROLS THE TAP. 


JuHP SHOT. 
SHOT IS OFF RIN. 
DARTHOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 2 

JUMP SHOT 

SHOOTER IS FOULED. Tw SHOTS. 
SHOOTER MAKES BOTH SHOTS. 
SCORE: 2 T0 0 


SET SHOT. 
SHOT IS MISSED. 
DARTHOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 2 

JUMP SHOT 

SHOT 19 OFF TARGET. 
REBOUND TO CORNELL 


JUMP SHOT. 

PLAYER FOULED. TWO SHOTS. 

SHOOTER MAKES ONE SHOT AND MISSES ONE. 
SCORE: 2 10 1 


YOUR SHOT? 1 
JUMP SHOT 
CHARGING FOUL. DARTMOUTH LOSES BALL. 


SHOOTER WAKES BOTH SHOTS. 
SCORE: 8 T0 1 


JUMP SHOT. 
SHOT IS OFF RIM. 
DARTMOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 2 

JURP SHOT 

SHOT IS OFF TARGET. 
REBOUND TO CORNELL 


LAY UP. 
SHOT I$ MISSED. 
DARTHOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 3 

LAY UP. 

SHOOTER FOULED. TWO SHOTS. 
SHOOTER KAKES BOTH SHOTS. 
SCORE: 10 18 1 


SET SHOT. 

SHOT IS MISSED. 

CORNELL CONTROLS THE REBOUND. 
SET SHOT. 

SHOT IS 6000. 

SCORE: 10 Ta 3 


YOUR SHOT? 1 
JUMP SHOT 

SHOT IS GOOD. 
SEORE: 12 103 


12 


LAY UP. 
SHOT BLOCKED. CORNELL’S BALL. 


JUMP SHOT. 
SHOT IS GOOD. 
SCORE: 40 10 43 


YOUR SHOT? 2 

JUMP SHOT 

SHOT 18 OFF TARGET. 
REBOUND TO CORNELL 


SET SHOT. 
SHOT 15 GOOD. 
SCORE: 40 10 45 


YOUR SHOT? 2 

JUKP SHOT 

SHOT 19 OFF TARGET. 

DARTMOUTH CONTROLS THE REBOUND. 


BALL PASSED BACK TO YOU. YOUR SHOT? 


SET SHOT. 
SHOT IS GOOD. TWO POINTS. 
SCORES 42 TO 45 


LAY UP. 

SHOT IS MISSED. 

DARTHOUTH CONTROLS THE REBOUND. 
YOUR SHOT? 3 


¥eee% END OF GAME #:he-ee 


FINAL SCORE: DARTHQUTH 42 CORNELL 45 


5S PRINT TAB(31);° BASKETBALL" 
7 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY“ 
@ PRINTsPRINTSPRINT 


10 PRINT “THIS IS DARTMOUTH COLLEGE BASKETBALL. YOU WILL BE DARTMOUTH" 
20 PRINT “ CAPTAIN AND PLAYHAKER. CALL SHOTS AS FOLLOWS: 1. LONG" 

30 PRINT " (30 FT.) JUMP SHOT; 2. SHORT (15 FT.) JUMP SHOT; 3. Lay” 

40 PRINT “ UPS 4, SET SHOT." 

60 PRINT “BOTH TEAMS WILL USE THE SAME DEFENSE. CALL DEFENSE as" 

70 PRINT “FOLLOWS: 6. PRESS; 6.5 HAN-TO HAN; 7. ZONES 7.5 NONE," 

72 PRINT “ TO CHANGE DEFENSE, JUST TYPE © aS YOUR NEXT SHOT.“ 

76 INPUT “YOUR STARTING DEFENSE WILL BE";DsIF D<6 THEN 2010 

79 PRINT 

80 INPUT "CHOOSE YOUR OPPONENT" ;0$ 

370-PRINT “CENTER JUMP" 1305 IF Z=0 THEN 2010 

390 IF RND(1)> 3/5 THEN 420 1310 IF 2>3 THEN 1700 

400 PRINT 0$;" CONTROLS THE TAP.” 1320 PRINT “LAY UP.” 

410 GOTO 3000 1330 IF 7/DeRND(1)>.4 THEN 1360 

420 PRINT “DARTMOUTH CONTROLS THE TAP." 1340 PRINT “SHOT IS GOOD. TWO POINTS." 

v2 ra 1s gua ce 

‘to wt YOUR SHOT";2 1360 IF 2/D*RND(1)>.7 THEN 1500 

445 IF ZOINT(Z) THER 455 1370 PRINT “SHOT IS OFF THE RIM.” 

446 IF 1<0 GR Z>4 THEN 455 1380 IF RND(1)>2/3 THEN 1415 

447 GOTO 460 1370 PRINT $3" CONTROLS THE REBOUND.“ 

455 PRINT "INCORRECT ANSWER. RETYPE IT. “;:G0TO 430 

460 IF RND(1)<.5 THEN 1000 1400 GOTO 3000 

460 IF T<100 THEN 1000 1415 PRINT "DARTMOUTH CONTROLS THE REBOUND." 

490 PRINT 1420 IF RND(1)>.4 THEN 1440 

491 TF §(1)<>5(0) THEN 510 1430 GOTO 1300 

492 PRINT “  ¢eeee END OF SECOND HALF 4s¢a9" 1440 PRINT “BALL PASSED BACK TO YOU."; 

A93 PRINT “SCORE AT END OF REGULATION TINE:" 1450 GOTO 430 

494 PRINT © DARTNOUTH"35(1)30835(0) 1500 IF 7/D*RND(1)>.875 THEN 1400 

495 PRINT 1510 PRINT “SHOOTER FOULED. TWO SHOTS." 

496 PRINT “BEGIN TUO MINUTE OVERTINE PERIOD" 1520 GOSUB 4000 

499 T=93 1530 GOTO 3000 

500 GOTO 370 1600 IF 7/DeRND(1)>.925 THEN 1630 

St0 PRINT “© #0808 END OF GANE +ex08" 1610 PRINT “SHOT BLOCKED. "309;"°S BALL.” 

515 PRINT “FINAL SCORE: DARTMOUTH"3S(1)70835(0) 1620 60TG 3000 

520 STOP 1630 PRINT “CHARGING FOUL. DARTHOUTH LOSES THE BALL." 

600 PRINT 1440 GOTO 3000 

610 PRINT * ees TUG MINUTES LEFT IN THE GAME #4%" 1700 PRINT "SET SHOT.” 

620 PRINT 1710 GOTO 1330 

630 RETURN 2010 INPUT “YOUR NEW DEFENSIVE, ALIGNHENT 19*:D 

1000 ON Z GOTO 1040,1040 2030 IF D<é THEN 2010 

1030 GOTO 1300 2040 GOTO 425 

1040 TsT+t 3000 P=1 

1041 IF T=50 THEN 8000 3005 T=T+! 

1042 IF T=92 THEN 1046 3008 IF T=50 THEN 8000 

1043 GOTO 1050 3012 GOTO 3018 

1046 GOSUB 600 3015 GosUB 400 

1050 PRINT “JUMP SHOT" 3018 PRINT 

1060 IF RND(1)>.3419D/8 THEN 1090 3020 ZI=10/44RND(1) +1 

1070 PRINT "SHOT IS GOOD." 3030 IF Z1>2 THEN 3500 

1078 GOSUB 7000 3040 PRINT “JUMP SHOT." 

1085 GOTO 3000 3050 IF 8/D*RND(1)>.35 THEN 3100 

1090 IF RND(1)>.6824D/8 THEN 1200 3060 PRINT “SHOT IS G00D." 

1100 PRINT “SHOT IS OFF TARGET." 3080 GOSUB 6000 

1405 IF D/6#RND(1)>.45 THEN 1130 3090 GOTO 425 

1110 PRINT “DARTMOUTH CONTROLS THE REBOUND.” 3100 IF @/D#RND(1}>.75 THEN 3200 

1120 GOTO 1145 3105 PRINT “SHOT IS OFF RIM." 

1130 PRINT "REBOUND TO ";0$ 3110 FF B/6#RND(1)>.5 THEN 3150 

1440 GOTO 3000 3120 PRINT “DARTHOUTH CONTROLS THE REBOUND." - 
1945 IF RND(1)>.40 THEN 1158 3130 GOTO 425 4050 IF RND(1)>.75 THEN 4100 
1150 BOTA 1300 3150 PRINT O$;" CONTROLS THE REBOUND.” 4060 PRINT “SHOOTER MAKES ONE SHOT AND MISSES OWE." 
1158 IF D=é THEN 5100 3160 IF D=4 THEN 5000 4070 SC1-P)=S(1-P)+1 

1160 PRINT “BALL PASSED BACK TO YOU. "3 3165 IF RNDC1)>.5 THEN 3175 A080 GOTO 4040 

1470 GOTO 430 3168 PRINT “PASS BACK TO “;05;" GUARD." 4100 PRINT “BOTH SHOTS HISSED.° 
1180 IF RNDC1)>.9 THEN 1190 3170 GOTO 3000 A110 GOTO 4040 

1185 PRINT “PLAYER FOULED, TWO SHOTS.“ 3175 GOTO 3500 S000 IF RND(1)>.75 THEN 5010 
1187 GOSUB 4000 3200 IF B/D*RND(1)>.9 THEN 3310 5005 GOTO 3145 

1188 GOTO 3000 3210 PRINT “PLAYER FOULED, TWO SHOTS." S010 PRINT “BALL STOLEN. EASY LAY UP FOR DARTMOUTH.” 
1190 PRINT “BALL STOLEN. “'0$;""S BALL.” 3220 GOSUB 4000 5015 GDSUB 7000 

1195 GOTO 3000 3230 GOTO 425 5030 GOTO 3000 

1200 IF RND(1)>.782D/8 THEN 1250 3310 PRINT "OFFENSIVE FOUL. DARTHOUTH’S BALL." 

1210 PRINT “SHOT IS BLOCKED. BALL CONTROLLED BY “s 3320 GOTO 425 5100 IF RNU(1)>.6 THEN 5120 
1230 IF RND(1)>.5 THEN 1242 3500 IF Z1>3 THEN 3800 5110 GOTO 1140 

1235 PRINT "DARTHOUTH." 350 PRINT “LAY UP." 5120 PRINT “PASS STOLEN BY "30$;" Easy Layur." 
1240 GOTO 430 3520 IF 7/D¥RND(1)>.413 THEN 3600 5130 GOSUB 4000 

1242 PRINT 0$;"." 3530 PRINT “SHOT IS GOOD." 5140 GOTO 425 

1245 GOTO 3000 3540 GOSUB 4000 4000 $(0)=5(0) +2 

1250 IF RND(1)>.843#D/8 THEN 1270 3550 GOTO 425 6010 PRINT “SCOREs "3S(1)3"10"35(0) 
1255 PRINT “SHOOTER IS FOULED. TO SHOTS." 3600 PRINT “SHOT IS MISSED." 6020 RETURN 

1260 GOSUB 4000 3610 GOTO 3110 7000 $(1)=5(4)42 

1265 GOTO 3000 3800 PRINT “SET SHOT.” 7010 GOSUB 4010 

1270 PRINT "CHARGING FOUL. DARTHOUTH LOSES BALL.“ 3810 GOTO 3520 7020 RETURN 

1280 GOTO 3000 4000 REK FOUL SHOOTING 8000 PRINT “  yxeee END OF FIRST HALF #eeae" 
1300 T=T+t 4010 IF RND(1)>.49 THEN 4050 8010 PRINT "SCORE: DARTMOUTH"35(1)30838(0) 
1301 IF T=50 THEN 8000 4020 PRINT “SHOOTER HAKES BOTH SHOTS." 8015 PRINT 

1302 IF T=92 THEN 1304 4030 SC1-P)=S(1-P)+2 8016 PRINT 

1303 GOTO 1305 4040 GOSUB 6010 8020 GO10 370 

1304 GOSUB 400 4041 RETURN 9999 END 
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Batnul 


The game starts with an imaginary 
pile of objects, coins for example. You 
and your opponent (the computer) 


alternately remove objects from the 200 PRINT 
pile. You specify in advance the 210 GOTO 330 
minimum and maximum number of 220 FOR I=t TO 10 
objects that can be taken on each turn. io en 
You also specify in advance how 330 INPUT “ENTER PILE SIZE*;N 
winning is defined: 1. To take the last 350 IF N<>0 THEN 370 
object or 2, To avoid taking the last 360 GOTO 330 
object. You may also determine he it ve Nien one 220 
whether you or the computer go first. 390 INPUT “ENTER WIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST: °sN 
The strategy of this game is based on 410 IF Hal THEN 430 
modulo arithmetic. Hf the maximum 420 TF HO? THEN 390 . 
number of objects a player may remove ‘0 tt ase TREN Agee AND RAY '7As8 
in a turn is M, then to gain a winning 460 IF ACi THEN 430 
position a player at the end of his turn “ rr owe THEN iO 
Cine. Hyout dontunderstand this, play 470 INPUT “ENTER START OPTION - 1 COMPUTER FIRST, 2 YoU FIRST “33 
the game 23 Matches first, then BAT- 520 IF 5<>2 THEN 490 
NUM, and have fun! 530 C=AtB 
BATNUM is a generalized version of oy iSep been 
a great number of manual remove-the- 560 IF U=t THER 220 
object games. The original computer 570 GOSUB 810 
version was written by one of the two S80 IF W=1 THEN 220 
originators of the BASIC language, pies te 550 
John Kemeny of Dartmouth College. 610 IF M=1 THEN 630 
620 Q=0-1 


630 IF M=1 THEN 660 
640 IF NDA THEN 720 


BATNUH 650 Wel 
CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 480 PRINT “COMPUTER TAKES"sN; “AND LOSES. 
670 RETURN 
THIS PROGRAH IS A “BATTLE OF NUMBERS* 680 IF N>B THEN 720 
GAME, WHERE THE COMPUTER IS YOUR OPPONENT 690 Wet 
700 PRINT "COMPUTER TAKES"SNS"AND WINS." 
THE GANE STARTS WITH AN ASSUMED PILE OF OBJECTS. 710 RETURN 
YOU AND YOUR OPPONENT ALTERNATELY REMOVE OBJECTS FRON 720 P=O-CeINT(O/C) 
THE PILE. INNING IS DEFINED IN ADVANCE AS TAKING THE 730 IF P>=A THEN 750 
LAST OBJECT OR NOT. YOU CAN ALSO SPECIFY SOME OTHER 740 Pea 
BEGINNING CONDITIONS. DON’T USE ZERO, HOWEVER, IN 750 IF P<=B THEN 770 
PLAYING THE GAHE. 760 P=B 
770 N=N-P 
ENTER PILE SIZE? 23 780 PRINT “CONPUTER TAKES*;P;"AND LEAVES"SN 
ENTER WIN OPTION - 1 TO TAKE LAST, 2 TO AVOED LAST: 7 2 790 Wad 
ENTER WIN AND HAX 7 1,3 900 RETURN . 
ENTER START OPTION - 1 COMPUTER FIRST, 2 YOU FIRST 7 2 810 PRINT “YOUR MOVE “; 
Yue OWE a ro exe 
youn AAW as 1 AND LEAVES 20 840 PRINT “I TOLD YOU NOT TO USE ZERO! COMPUTER WINS BY FORFEIT." 
COMPUTER TAKES 1 AND LEAVES 16 aso RETURN 
YOUR MOVE 7 3 
COMPUTER TAKES 1 AND LEAVES 12 870 EF P<>ENT(P) THEN 920 
COMPUTER TAKES 1 AND LEAVES 8 890 IF P=W THEN 960 
YOUR MOVE 7 3 0 TF P<ed THEN 940 
910 e 
YOUR DUE SG 1 AND LEAVES 4 920 PRINT “ILLEGAL MOVE, REENTER IT "3 
930 GOTO 82 
COMPUTER TAKES 1 AND LOSES. 940 NEN-P 
950 1F HX>0 THEN 1030 
960 IF M=1 THEN 1000 
10 PRINT TAB(33);"BATHUK" 970 PRINT “TOUGH LUCK, YOU LOSE.” 
20 PRINT TAB({S);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 980 uel 
30 PRINTSPRINTSPRINT 990 RETURN 
110 PRINT “THIS PROGRAM IS A “BATTLE OF NUMBERS" 1000 PRINT “CONGRATULATIONS, YOU WIN.” 
120 PRINT “GANE, WHERE THE COMPUTER IS YOUR OPPONENT" 1010 Wat 
130 PRINT 1020 RETURN 
140 PRINT “THE GAKE STARTS WITH AN ASSUMED PILE OF OBJECTS.” 1030 IF N>=0 THEN 1060 
150 PRINT "YOU AND YOUR OPPONENT ALTERNATELY REMOVE OBJECTS FROM" 1040 HEN+P 
160 PRINT “THE PILE. WINNING IS DEFENED IN ADVANCE AS TAKING THE" 1050 GOTO 920 
170 PRINT “LAST OBJECT OR NOT. YOU CAN ALSO SPECIFY SONE OTHER“ 1060 U=0 
180 PRINT “BEGINNING CONDITIONS. DON’T USE ZERO, HOWEVER, IN° 1070 RETURN 
190 PRINT “PLAYING THE GAHE.” 1080 END 
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Battie 


BATTLE is based on the popular 
game Battleship which is primarily 
played to familiarize people with the 
location and designation of points ona 
coordinate plane. 

BATTLE first randomly sets up the 
bad guys’ fleet disposition on a 6 by 6 
matrix or grid. The fleet consists of six 
ships: Two destroyers (ships number 1 
and 2) which are two units long, two 
cruisers (ships number 3 and 4) which 
are three units long and two aircraft 
carriers (ships number 5 and 6) which 
are four units long. The program then 
prints out this fleet disposition in a 
coded or disguised format (see the 
sample computer print-out). You then 
proceed to sink the various ships by 
typing in the coordinates (two digits, 
each from 1 to 6, separated by a 
comma) of the place where you want to 
drop a bomb, if you'll excuse the 
expression. The computer gives the 
appropriate responses (splash, hit, 
etc.) which you should record ona 6 by 
6 matrix. You are thus building a 
representation of the actual fleet dis- 
position which you will hopefully use to 
decode the coded fleet disposition 
printed out by the computer. Each time 
a ship is sunk, the computer prints out 
which ships have been sunk so far and 
also. gives you a “SPLASH/HIT 
RATIO.” 

The first thing you should learn is 
how to locate and designate positions 
on the matrix, and specifically the 
difference between “3,4” and “4,3.” Our 
method corresponds to the location of 
points on the coordinate plane rather 
than the location of numbers in a 
standard algebraic matrix: the first 
number gives the column counting 
from left to right and the second 
number gives the row counting from 
bottom to top. 

The second thing you should learn 
about is the splash/hit ratio. “Whatisa 
ratio?” A good reply is “It’s a fractionor 
quotient.” Specifically, the splash/hit 
ratio is the number of splashes divided 
by the number of hits. If you had 9 
splashes and 15 hits, the ratio would be 
9/15 or 3/5, both of which are correct. 
The computer would give _ this 
splash/hit ratio as .6. 
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The main objective and primary 
educational benefit of BATTLE comes 
from attempting to decode the bad 
guys’ fleet disposition code. To do this, 
you must make a comparison between 
the coded matrix and the actual matrix 
which you construct as you play the 
game. 

The original author of both the 
program and these descriptive notes is 
Ray Westergard of the Lawrence Hall 
of Science, Berkeley, California. 
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BATTLE 


CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 


THE FOLLOWING CODE OF THE BAD GUYS” FLEET DISPOSITION 


HAS BEEN CAPTURED BUT NOT DECODED: 


CRAM OS SO 


0022 4 
44460 
0060 0 
060 0 3 
10 0 6 3 
9 ' 004 


DE-CODE IT AND USE IT IF YOu CAN 
BUT KEEP THE DE-CODING METHOD A SECRET. 


START GAHE 
71,1 

A DIRECT HIT ON SHIP NUMBER 6 
TRY AGAIN. 

74,1 

f DIRECT HIT ON SHIP NUMBER 3 
TRY AGAIN. 

14,1 

A DIRECT HIT ON SHIP NUMBER 3 


TRY AGAIN. 
1 4,1 
A DIRECT HIT ON SHIP NUMBER 3 
AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 
SO FAR, THE BAD GUYS HAVE LOST 
O DESTROYER(S), 1 CRUISER(S), AND 0 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS 0 
72,1 
SPLASH} TRY AGAIN. 
11,2 
A DIRECT HIT ON SHIP HUMBER 2 
TRY AGAIN, 
11,3 
A DIRECT HIT ON SHIP NUMBER 2 
AKD YOU SUNK IT. HURRAH FOR THE GOOD GUYS, 
SO FAR, THE BAD GUYS HAVE LOST 
1 DESTROYER(S), ©! CRUISER(S), AND 0 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS .166667 
14,7 
INVALID INPUT. TRY AGAIN. 
14,6 
A DIRECT HIT ON SHIP NUMBER 5 
TRY AGAIN. 
14,6 
A DIRECT HIT ON SHIP NUMBER 5 
TRY AGAIN. 
75,6 
A DIRECT HIT ON SHIP NUMBER 5 
TRY AGAIN. 
7 6,4 
A DIRECT HIT ON SHIP NUMBER 1 
TRY AGAIN. 
7 by6 
A DIRECT HIT ON SHIP NUMBER 5 
AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 
SO FAR, THE BAD GUYS HAVE LOST 
1 DESTROYER(S), | 1 CRUISER(S), AND 1 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS .090909t 
13,4 
SPLASH! TRY AGAIN. 
7 2,2 
A DIRECT HIT ON SHIP NUMBER 6 
TRY AGAIN. 
13,3 
A DIRECT HIT ON SHIP NUMBER 6 
TRY AGAIN, 
rA,4 
A DIRECT HIT ON SHIP NUMBER 6 
AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 
SO FAR, THE BAD GUYS HAVE LOST 
1 DESTROYER(S), | 1 CRUISER(S), AND 2 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO [5 .142857 
1 6,4 
YOU ALREADY PUT A HOLE IN SHIP NUMBER 1 AT THAT POINT. 
SPLASH! TRY AGAIN. 
75,5 
A DIRECT HIT ON SHIP HUMBER 1 
AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 
SO FAR, THE BAD GUYS HAVE LOST 
2 DESTROYER(S), 1 CRUISER(S), AND 2 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS .2 
12,3 
A DIRECT HIT ON SHIP NUMBER 4 
TRY AGAIN. 
12,4 
A DIRECT HIT ON SHIP NUMBER 4 
TRY AGAIN. 
12,5 
A DIRECT HIT OW SHIP NUMBER 4 
AND YOU SUNK IT. HURRAH FOR THE GOOD 6uYS. 
SO FAR, THE BAD GUYS HAVE LOST 
2 DESTROYER(S), | 2 CRUISER(S), AND 2 AIRCRAFT CARRIER(S). 
YQUR CURRENT SPLASH/HIT RATIO IS .166667 


YOU HAVE TOTALLY VIPED OUT THE BAD GUYS” FLEET 
WITH A FINAL SPLASH/HIT RATIO OF 1166467 


POSSERESESE SS EEESED ESSE SORS 
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340 
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360 
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410 
420 
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RINT TAB(33); "BATTLE" 
RINT TABCIS) "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 
REH ~~ BATTLE URITTEN BY RAY WESTERGARD 10/70 
REM COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF. 
REK PRODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEY 
REN DIM F(6,6),H(6,6),AC4)<BC4) C6) ,L 03) 
FOR X=1 10 6 
FOR Y=i 10 6 
FIX,¥)=0 
NEXT Y 
NEXT X 
FOR I=t 10 3 
Ne4-T 
FOR J=t TO 2 
ASINT(6*RND(1)41) 

BaINT(6#RND(1)+4) 

D2INT(4*RND(t) +4) 

IF F(A,B)>0 THEN 90 

420 

ON D GOTO 150,340,550,740 

BCt)=B 

B(2)=72B(3)=7 

FOR K=1 TO 8 

IF HOt THEN 240 

IF B(K)#4 THEN 230 

IF F(A,B(K)+1)>0 THEN 230 

BCK+1)=B(K) +1 

B0TO 280 

Hm 

IF BCt)<BC2) AND BCE)<B(3) THEN Z=BC1) 
IF B(2)<BC1) AND BC2)<B(3) THEN Z=B(2) 
IF B(3)<B(1) AND B(3)<B(2) THEN Z=B(3) 
IF Z=1 THEN 90 

IF F(A,Z-1)>0 THER 90 

B(Kt1)sZ~-t 

NEXT K 

F(A,B)29-281-J 

FOR K=1 TON 

F(A,BCK4+1) =F (A,B) 

NEXT K 

GOTO 990 

ACT) 24 

BC 1) =B 

A(2)2020(3)=02B(2)=05B(3) 20 

FOR Kzi TON 

IF 4>1 THEN 460 

Tf ACK)#t OR BCK)=! THEN 450 

IF F(ACK)~1,B(K)-1)50 THEN 450 

IF FCACK)~9,B(K))>0 AND F(ACKI-1,B(K))9F (ACK) B(KI-1) THEN 450 
ACKETDEACK)-1 

B(K+1) =B(K)-1t 

GOTO 530 

W=2 

TF ACT)>AL2) AND ACTIOAC3) THEN Z1AC1) 
TF AC2Z)>ACT) AND AC2)>AC3) THEN Z1=A(2) 
IF ACS)OACT) AND ACI)>AC2) THEM Z1=A(3) 
TF BCH)>B(2) AND BCt)>B(3) THEN Z2=B(1) 
IF BC2)>B(1) AND B(2)>B(3) THEN 22=B(2) 
IF BC3)>BC9) AND B(3)>B(2) THEN 223B(3) 
IF Z1=6 OR 22=6 THEN 90 

IF FUZ14t,Z2+1)>0 THEN 90 

TF FCZ1,22¢1)90 AND F(Zt,22+1)5F(Z141,22) THEN 90 
ACK+T #2141 

BCK+)<Z2+1 

NEXT K 

GOTO 950 

At) =A 

ACQ=E7 LACS) a7 

FOR K=1 TON 

If Mt THEN 640 

IF ACK)=6 THEN 630 

If FCACK)+1,B)>0 THEN 630 

ACKFTIEACKI +t 

GOTO 680 

H=2 

IF ACH)<AC2) AND AC1}<AC3) THEN Z=AC1) 
IF AC2)<ACT) AND AC2)<A(3) THEN Z2=A(2) 
TF ACS)<AG1) AND AC3)CA(2) THEN Z2Aa(3) 


IF Z=1 THEN 90 
IF F(Z~1,B)90 THEN 90 

AUKHI)=Z~1 

NEXT K 

F(A,B)=9-201-J 

FOR Kt TOW 

F(ACK#1) ,B)=F (A,B) 

NEXT K 

Bota 990 

ACT SA 

BL )=B 

A(2)=72A(3)57 

B(2)=05B(3)30 

FOR K=t TON 

IF M>1 THEN 9870 

IF ACK)=6 OR BCK)=1 THEN 860 

IF FCACK)+1,B(K)-1}20 THEN 940 

IF FCACK)#1,B(K))20 AND FCA(K)+1,B(K) =F (A(K),B(K)-1) THEN 860 
ACKHL SACK) 4E 

B(K+1)=B(K)~ 

B0TO 940 

Nez 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


Aci)<ac2) 
AC2CAC) 
ACCA) 
B(1)>B(2) 
B(2)>BU1) AND B(2)>B(3) 
B(3)>B(1) AND B(3)>B(2) 
1121 OR Z2=6 THEN 90 

IF F(Z1-1,22+1)>0 THEN 90 
IF F(Z1,22+1)>0 AND F(Zt,Z2+1)=F(Z1-1,22) THEN 90 
ACK#H)SZ1-1 
B(K#t)=Z2+1 
NEXT K 
F(A, B)=9-281-J 
FOR Ket TON 
FCACK#L) BCR#I) )9F (A,B) 
NEXT K 
NEXT J 

NEXT I 

PRINT 

PRINT “THE FOLLOWING CODE OF THE BAD GUYS’ FLEET DISPOSITION" 
PRINT “HAS BEEN CAPTURED BUT NOT DECODED:" 

PRINT 

FOR I=t TO 6 

FOR J=1 10 6 

HCL, Jd2F (0,1) 

NEXT J 

NEXT I 

FOR 1=1 10 6 

FOR J=1 10 6 

PRINT H(I,J)3 

NEXT J 

PRINT 

REXT 1 

PRINT 

PRINT “DE-CODE IT AND USE IT IF YOU CAN" 

PRINT "BUT KEEP THE DE-CODING HETHOD A SECRET." 

PRINT 


AND 
AND 
AND 
AND 


AC1<ACS) 
A(2)<A03) 
ACH) <A02) 
B(1)>B(3) 


THEN Zt=A(4) 
THEN Z1=A(2) 
THEN Z1#A(3) 
THEN Z2=B(1) 
THEN Z2=B(2) 
THEN Z2=B(3) 
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1 
1 
HC, J)=0 
NEXT J 

NEXT I 

FOR I=1 10 3 

LOI)}=0 

NEXT I 

C(4)=2:0(2)2 

C(3)21 04) at 

£(5)=030(6} 80 

9=0:H=0 

PRINT “START GAME" 

INPUT X,Y 

IF X<t OR X>6 GR INT(X)<2ABG(X) THEN 1210 
IF ¥>0 AND Y<? AND INTCYD=ABS(Y) THEN 1230 
PRINT "INVALID INPUT. TRY AGAIN." 

BOTO 1180 

Re?-¥ 

cx 

IF FER, C)>0 THEN 1290 

52541 

PRIKT “SPLASH! 
BOTO 1180 

IF COF(R,C))<4 THEN 1340 

PRINT “THERE USED TO BE A SHIP AT THAT POINT, BUT YOU SUNK IT.” 
PRINT “SPLASH! TRY AGAIN.” 

S=S+1 

GOTO 1180 

IF H(R,C)>0 THEN 1420 

HEH 

ACR, CO=FIR,£) 

PRINT “A DIRECT HIT ON SHIP KUMBER “sF(R,C) 
CCF(R,C))2CCF(R,C) 944 

IF C(F(R,C))>=4 THEN 1470 

PRINT "TRY AGAIN." 

GOTO 1180 

PRINT “YOU ALREADY PUT A HOLE IN SHIP NUMBER"SF(R,C)3 

PRINT “AT THAT POINT.” 

PRINT “SPLASH! TRY AGAIN.” 

$2641 

GOTO 1160 

LC CLHTCF(R,E)-99/2) 44 Dab (CINT(F(R,C)-1)/2041 944 

PRINT “AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS." 

PRINT “SO FAR, THE BAD GUYS HAVE LOST" 

PRINT LUV)s"DESTROYER(S), © "SL(2)3"CRUISER(S), AND "“s 

PRINT L(J)S "AIRCRAFT CARRIER(S)." 

PRENT "YOUR CURRENT SPLASH/HIT RATIO 18"}S/H 

IF (LOL)+L(2)4L 03046 THEN 1180 

PRINT 

PRINT “YOU HAVE TOTALLY WIPED QUT THE BAD GUYS’ FLEET" 

PRINT “WITH A FINAL SPLASH/HIT RATIO OF "3S/H 

IF §/H>0 THEN 1590 

PRINT “CONGRATULATIONS ~- A DIRECT HIT EVERY TIME." 

PRINT 

PRINT “See Gece eeeaceeseesaseeseegas” 

PRINT 

GOTO 50 

END 


TRY AGAIN.® 


This is a simulation of the card game 
of Blackjack or 21, Las Vegas style. 
This rather comprehensive version 
allows for up to seven players. On each 
hand each player may get another card 
(a hit), stand, split a hand in the event 
two identical cards were received or 
double down. Also, the dealer wiil ask 
for an insurance bet if he has an ex- 
posed ace. 

Cards are automatically reshuffled 
as the 51st card is reached. For greater 
realism, you may wish to change this to 
the 41st card in Line 110. Actually, 
fanatical purists will want to modify the 
program so it uses three decks of cards 
instead of just one. 

This program originally surfaced at 
Digital Equipment Corp.; the author is 
unknown. 


BLACKJACK 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DO YOU WANT INSTRUCTIONS? YES 
THIS IS THE GAME OF 21. AS MANY AS 7 PLAYERS MAY PLAY THE 
GAME. ON EACH DEAL, BETS WILL BE ASKED FOR, AND THE 
PLAYERS’ BETS SHOULD BE TYPED IN. THE CARDS WILL THEN BE 
DEALT, AND EACH PLAYER IN TURN PLAYS HIS HAND. THE 
FIRST RESPONSE SHOULD BE EITHER “D’, INDICATING THAT THE 
PLAYER 19 DOUBLING DOWN, “S’, INDICATING THAT HE IS 
STANDING, “H’, INDICATING HE WANTS ANOTHER CARD, OR “/*, 
INDICATING THAT HE WANTS TO SPLIT HIS CARDS. AFTER THE 
INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE “S’ OR 
“H’, UNLESS THE CARDS WERE SPLIT, IN WHICH CASE DOUBLING 
DOWN IS AGAIN PERMITTED. IN ORDER TO COLLECT FOR 
BLACKJACK, THE INITIAL RESPONSE SHOULD BE “S’. 
NUMBER OF PLAYERS? 2 
RESHUFFLING 
BETS 
a ft 7? 200 
W#2 7 150 
PLAYER 1 2 DEALER 

9 6 +] 

8 J 
PLAYER 175 
TOTAL IS 17 
PLAYER 278 
TOTAL IS 14 
DEALER HAS A 3 CONCEALED FOR A TOTAL OF 12 
DRAUS Q  ...BUSTED 
PLAYER 1 WINS 200 TOTAL= 200 
PLAYER 2 WINS 150 TOTAL= 150 
DEALER’S TOTAL=~350 


BETS 

# 1 7 300 

# 2 7 200 

PLAYER 1 2 DEALER 
K a 2 
2 4 
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PLAYER 17H 
RECEIVED A 3 HIT? § 
TOTAL IS 15 
PLAYER 274 
RECEIVED A 3 HITT S 
TOTAL 1S 17 
DEALER HAS A J CONCEALED FOR A TOTAL OF 12 
DRAUS @ ...BUSTED 
PLAYER 1 WINS 300 TOTAL= 500 
PLAYER 2 WINS 200 TOTAL= 350 
DEALER’S TOTAL=-850 
BETS 
f 1 7 900 
# 2 7 500 
PLAYER 1 2 DEALER 
K 5 4 
é ? 
PLAYER 1 7H 
RECEIVED A J ...BUSTED 
PLAYER 2 TH 
RECEIVED AN A HIT? H 
RECEIVED A 7 ...BUSTED 
DEALER HAD A 2 CONCEALED. 
PLAYER 1 LOSES 300 TOTAL= 0 
PLAYER 2 LOSES 500 TOTAL=-150 
DEALER’S TOTAL= 150 
BETS 
#1 7 500 
427 50 
PLAYER 1 2 DEALER 
6 7 ? 
10 J 
PLAYER 17S 
TOTAL IS 16 
PLAYER 27S 
TOTAL IS 17 
DEALER HAS A 95 CONCEALED FOR A TOTAL OF 12 
DRAWS 9 ---TOTAL IS 21 


PLAYER 1 LOSES 500 TOTAL=-S00 
PLAYER 2 LOSES 50 TOTAL=-200 
DEALER’S TOTAL= 700 
BETS 
# 1 7 100 
#2 7 100 
PLAYER 1 2 DEALER 
A 8 10 
8 a 
NO DEALER BLACKJACK, 
PLAYER 1 7 S$ 
TOTAL IS 19 
PLAYER 27S 
TOTAL IS 18 
DEALER HAS A 10 CONCEALED FOR A TOTAL OF 20 


PLAYER 1 LOSES 100 TOTAL=-600 
PLAYER 2 LOSES 100 TOTAL=-300 
DEALER’S TOTAL= 900 


BETS 

#17 500 

W# 2 7 500 

PLAYER 1 2 DEALER 
5 4 3 
2 8 

PLAYER 1 7H 


RECEIVED A 4 HIT? H 

RECEIVED AN A HIT? H 

RECEIVED AN A HIT? § 

TOTAL IS 13 

PLAYER 27H 

RECEIVED A 10) ...BUSTED 

DEALER HAS A K CONCEALED FOR A TOTAL OF 13 
DRAWS 7 -~~TOTAL IS 20 


PLAYER 1 LOSES 500 TOTAL=-1100 
PLAYER 2 LOSES 500 TOTAL=-900 
DEALER’S TOTAL= 1900 

RESHUFFLING 

BETS 

f 1? 500 

#2 7 500 


PLAYER 1 2 
3 5 
6 3 
PLAYER 1 7H 
RECEIVED A 10 HIT? S 
TOTAL IS 19 
PLAYER 2 7 DB 
RECEIVED A J 
TOTAL IS 18 
DEALER HAS A 4 CONCEALED FOR A TOTAL OF 13 
DRAWS 2 7 a» BUSTED 
PLAYER 1 WINS 500 TOTAL=-1100 
PLAYER 2 WINS 1000 TOTAL= 700 
DEALER’S TOTAL= 400 
BETS 
#17 400 
#2 7 320 
PLAYER 1 2 DEALER 
a 8 10 
6 4 
NO DEALER BLACKJACK. 
PLAYER t tS 
TOTAL 1S 16 
PLAYER 2 7 D 
RECEIVED A 7 
TOTAL IS 19 
DEALER HAS A 2 CONCEALED FOR A TOTAL OF 12 
DRAUS 4 Kg. BUSTED 
PLAYER 1 WINS 400 TOTAL=~700 
PLAYER 2 WINS 640 TOTAL= 1340 
DEALER“S TOTAL=-640 
BETS 
& 1 7 S00 
# 2 7 S00 
PLAYER 1 2 DEALER 
4 6 J 
2 a 
NQ DEALER BLACKJACK. 
PLAYER 1 7H 
RECEIVED A 9 HIT? H 


DEALER 
7 


RECEIVED ANB ...BUSTED 
PLAYER 2 7 H 

RECEIVED AN A HIT? § 
TOTAL IS 17 


DEALER HAS A 7 CONCEALED FOR A TOTAL OF 17 


PLAYER 1 LOSES 
PLAYER 2 PUSHES 
DEALER’S TOTAL=-140 


500 TOTAL=~1200 
TOTAL= 1340 


2 PRINT TAB(31)5"BLACK Jack" 

4 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

6 PRINTEPRINT:PRINT 

20 DIM P(15,12),0¢15),0(52),B(52),1(8),S¢7),B(15} 

30 DIK R15) 

40 REH~-P(I,J) IS THE JTH CARB IN HAND I, Q(1) IS TOTAL OF HAND J 
50 REH--C IS THE DECK BEING DEALT FROM, D IS THE DISCARD PILE, 

60 REH--T(E) IS THE TOTAL FOR PLAYER I, S(1) I$ THE TOTAL THIS HAND 
70 REM--FOR PLAYER I, B(I) IS TH BET FOR HAND I 

80 REN~-R(I) 1S THE LENGTH OF P(I,#) 
90 GOTO 1500 

100 REH--SUBROUTINE TO GET A CARD. 
110 IF C<S1 THEN 230 

120 PRINT “RESHUFFLING" 

130 FOR B=b TO 1 STEP -1 

140 C=C-1 

150 C(C)=D(D) 

160 NEXT B 

170 FOR C1=52 To C STEP -1 

180 C2SINT(RNDCL)#(EY-C44) 240 

190 C32C(C2) 

200 C(C2)=C(01) 

210 ClCT)=C3 

220 NEXT C4 

230 X2C(C) 

240 C=C+t 

250 RETURN 

300 REN~-SUBROUTINE TO EVALUATE HAND 1. TOTAL IS PUT INTO 
S10 REM--O(1). TOTALS HAVE THE FOLLOWING MEANING: 

320 REN-- 2-10... HARD 2-10 

330 REH-- 11-21...S0FT 11-21 

340 REN~~ 22-32... HARD 11-21 

350 REH-- 33+..., BUSTED 

340 O=0 

370 FOR G2=1 TO RUD) 

380 X=P(1,Q2) 

390 GOSUB 500 

400 NEXT 02 

410 @(1)=0 

420 RETURM 


RESULT IS PUT IN X, 
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500 REM-~SUBROUTINE TO ADD CARD X TO TOTAL Q. 

510 Xt=X2 IF X1>10 THEN Xt=10: REM SANE AS X1=10 MIN X 
520 Qt=O+Xxt 

530 IF @>=11 THEN 590 

540 IF X>1 THEN 570 

550 O=0+11 

560 RETURN 

570 Q21-11#(O13=11) 

580 RETURN 

590 Q=01-(0¢=21 AND Q1>21) 

600 IF Q<33 THEN 620 

610 Q=-1 

620 RETURN 

700 REM--CARD PRINTING SUBROUTINE 

710 REK BS DEFINED ELSEWHERE 

720 PRINT MIDS(D$,3#X-2,3)¢ 

730 PRINT “ "3 

740 RETURN 

750 REN~-ALTERNATIVE PRINTING ROUTINE 

760 PRINT " "SHIDS(D$,3#X-1,2)¢ 

770 PRINT " "3 

780 RETURN 

800 REN--SUBROUTINE TO PLAY OUT A HAND. 

810 REN--NO SPLITTING OR BLACKJACKS ALLOWED 

820 HI=S 

830 GOSUB 1410 

a40 H1=3 

850 OH H GOTO 950,930 

860 GOSUB 100 

870 B(L)=B(1)#2 

880 PRINT "RECEIVED a"; 

890 GOSUB 700 

900 GOSUB 1100 

910 IF QO THEN GOSUB 1300 

920 RETURN 

930 GOSUB 1320 

940 RETURN 

750 GOSUB 100 

960 PRINT "RECEIVED A"; 

970 GOSUB 700 

980 BOSUB 1100 

990 IF O40 THEN 940 

1000 PRINT "HIT": 

1010 GOTO 830 

1100 REN--SUBROUTINE TO ADD A CARD TO ROW 1 

TH1O RCL=RUDI 41 

1120 PCI,RCL) 2X 

1130 O=0(E) 

1140 GOSUB 500 

1150 Q(1)=0 

1160 IF O>=0 THEN 1190 

1170 PRINT "... BUSTED" 

1180 GOSUB 1200 

1190 RETURN 

1200 REN--SUBROUTINE TO DISCARD ROW I 

1210 IF RC(E)<30 THEN 1230 

1220 RETURN 

1230 D=D+1 

1240 BCD=PCL,RC1)) 

1250 RCDER(D)-4 

1260 GOTO 1210 

1300 REM--PRINTS TOTAL OF HAND 1 

1310 PRINT 

1320 AASO(I): GOSUB 3400 

1325 PRINT “TOTAL IS"zAA 

1330 RETURN 

1400 REN--SUBROUTINE TO READ REPLY 

1410 REM I$ DEFINED ELSEWHERE 

1420 INPUT H$s HS=LEETS(HS,1) 

1430 FOR H=t TO H1 STEP 2 

1440 IF H$=MEDS(I$,H,1) THEN 1480 

450 NEXT H 

1460 PRINT “TYPE “SHIDSCIS,1,H1-1)3" OR “SHIDS(IS,H1,2)3" PLEASE": 
470 GOTO 1420 

480 H=(HFI}/2 

490 RETURN 

1500 REN--PROGRAM STARTS HERE 
1510 REN-- INITIALIZE 
1920 DS#"H A 2 3 4 «5 6 
530 [$2"H,5,0,/," 
1540 FOR E=1 TO 13 
590 FOR J=4tl-3 TO 441 
560 BCJ)=1 

570 NEXT J 

1580 NEXT I 

1590 D252 

600 C=53 

410 PRINT "DO YOU WANT INSTRUCTIONS": 

620 INPUT Hg 

630 IF LEFTS(HS,1)="N" THEN 1760 

640 PRINT "THIS IS THE GAME OF 21. AS HANY AS ? PLAYERS HAY FLAY THE® 
1650 PRINT "GAME. ON EACH DEAL, BETS WELL HE ASKED FOR, AND THE” 
460 PRINT "FLAYERS’ BETS SHOULD BE TYPED IN. [HE CARDS WILL THEN BE" 


7M 8B 910 J @ KN 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"DEALT, AND EACH PLAYER IN TURN PLAYS HIS HAND. THE" 


"PLAYER IS DOUBLING DOWN, “S°, INDICATING THAT HE Is” 
"INDICATING THAT HE WANTS TO SPLIT HIS CARDS. 


PRINT "°H’, 
PRINT “DOWN IS AGAIN PERMITTED. IN ORDER TO COLLECT FoR® 
PRINT "BLACKJACK, THE INITIAL RESPONSE SHOULD BE “S*.* 
PRINT “NUMBER OF PLAYERS"; 

INPUT N 

IF N<t OR ND? GR NSENT(N) THEN 1760 

FOR [=1 TO @: T(1)=02 NEXE I 

DI=NHI 

IF 2¥D140>=52 THEN GOSUB 120 

IF C=2 THEN C=C-t 

FOR I=t TO Ws Z(1)=02 WEXT I 

FOR I=t TO 1S: B(i)=0: NEXT I 

FOR I=t TO 15: Q{1)=0: NEXT I 

FOR I=t TG 7: S(E)=0: NEXT I 

FOR Ist TO 152 R(L)=02 NEXT I 

PRINT "BETS" 

FOR I=t TO Ns PRINT “#"3Is: INPUT Z(1}: NEXT I 

FOR I=t TON 

IF 1¢1)¢=0 OR Z(E)>500 THEN 1880 

BEL)=Z(E) 

NEXT 1 

PRINT “PLAYER"} 
FOR I=1 TON 
PRINT Ip" "3 
NEXT 1 

PRINT "DEALER" 
FOR J=1 TO 2 
PRINT TAB(S)$ 
FOR f=1 TO D1 
GOSUB 100 

PUL, J)=X 

IF Jst OF I<=N 
NEXT I 

PRINT 

NEXT J 

FOR [=1 TO Dt 
R(L)=2 

NEXT I 
REH--TEST FOR INSURANCE 

IF POD1,1)21 THEN 2240 

PRINT "ANY INSURANCE"; 

INPUT HS 

If LEFTS(HS,1)0"Y" THEN 2240 

PRINT “INSURANCE BETS" 

FOR I=f TO Ns PRINT "A" SIs: INPUT ZU): NEXT I 
FOR I=t TON 


THEN GOSUB 750 


IF Z(E)<0 OR Z(1)>B(1)/2 THEN 2160 

NEXT I 

FOR T=1 10 N 

S(T) EZ( Eye ( 34 (~ (CP (D1, 2) 5210) 1-1) 

NEXT I 

REM-~TEST FOR DEALER BLACKJACK 

List: L2si 

IF P(D1,1)=1 AND P(D1,2)>9 THEN Li=0: L2=0 
IF P(D1,2)=1 AND P(B1,1)>9 THEN L1=0: L2=0 
IF LI¢>0 OR L2<20 THEN 2320 

PRINT “DEALER HAS A";MLD$(D$,3#P(D1,2)-2,3);" IN THE HOLE "3 
PRINT "FOR BLACKJACK" 

FOR [=1 10 Dt 

GOSUB 300 

NEXT I 

GOTO 3140 


REN--NO DEALER BLACKJACK 

IF P(D1,1)>1 ANB P(D1,19410 THEN 2350 
PRINT "NO DEALER BLACKJACK." 
REM--NOW PLAY THE HANDS 

FOR I=1 TO W 

PRINT “PLAYER'S I; 

His? 

GOSUB 1410 

ON H GOTO 2550, 2410, 2510, 2400 
REM-~PLAYER WANTS TO STAND 
GOSUB 300 

IF Q@(1)¢>21 THEN 2490 

PRINT "BLACKJACK" 
S(L)=S(L)+4.54B(1) 

BCL }=0 

GOSUB 1200 

GOTO 2900 

GOSUB 1.420 

GOT 2900 

RER--PLAYER WANTS TO DOUBLE DOUN 
GOSUB 300 

GOSUB 840 

GOTO 2900 

REM--PLAYER WANTS TO BE HIT 


"FIRST RESPONSE SHOULD BE EITHER “D’, INDICATING THAT THE" 


“STANDING, °H°, INDICATING HE WANTS ANOTHER CARB, OR “/°," 
AFTER THE “ 
PRINT “ENITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE “S* OR" 
UNLESS THE CARDS WERE SPLIT, IN WHICH CASE DOUBLING" 


2960 
2570 
2580 
2570 
2400 
2610 
2612 
A614 
2620 
2630 
2840 
2650 
2660 
2670 
2680 
2670 
2700 
2710 
2720 
2730 
2740 
2750 
2760 


GOSUB 300 
Hi=3 

BOSUB 950 

soto 2900 

REH--PLAYER WANTS TO SPLIT 
Li=P(L,t}2 IF PCE,1)210 THEN Li=10 
L2=P(1,2): IF P(1,2)910 THEN L2=10 
IF L1=L2 THEN 2640 

PRINT “SPLITTING NOT ALLOUED.* 
GOTO 2370 

REM~~PLAY OUT SPLIT 

[1=1+pt 

RUE) =2 

P(I1,1)=P(1,2) 

BCE+DT) =B(L) 

GOSUB 100 

PRINT “FIRST HAND RECEIVES a"; 
GOSUB 700 

PCT, 2)2X 

GOSUB 300 

PRINT 

GOSUB 100 

PRINT “SECOND HAND RECEIVES a"; 


2770 Teli 


2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2870 
2700 
2910 
2720 
2730 
2940 
2750 
2960 
2970 
29780 
2990 
3000 
3010 
3020 
3030 
3035 
3040 
3050 
3060 
3070 
3080 
3090 
5095 
3100 
3110 
3120 
3125 
3130 
3140 
3150 
3160 
3170 
3180 
3182 
3184 
3186 
3188 
3200 
3210 
3220 
43230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
4330 
3440 
5450 
3360 
3400 
3410 
3420 
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GOSUB 700 

(1,2) =X 

GOSUB 300 

PRINT 

isli-Dt 

IF P(I,t)=1 THEN 2900 
REM~-NOW PLAY THE TWO HANDS 
PRINT "HAND" st-(E>D1)3 
BOSUB B00 

ler+Dt 
IF I-11 
IsE1-Dt 
NEXT I 
GOSUB 300 

REN--TEST FOR PLAYING BEALER’S HAND 

FOR I=1 TON 

IF REL)30 OR RCIFD1250 THEN 3010 

NEXT I 

PRINT “DEALER HAD A"; 

X=P(D1,2) 

GOSUB 700 

PRINT " CONCEALED." 

BOTO 3140 

PRINT “DEALER HAS A'SMIDS(D$,3#P(D1,2)-2,3)3" CONCEALED "3 
I=Dt 

AA=0(1): GOSUB 3400 

PRINT “FOR A TOTAL OF TAA 

IF AADIO THEN 3130 

PRINT “DRAUS"? 

GOSUB 100 

GOSUB 750 

GesuB 1100, 

AA=Q: GOSUB 3400 

IF @>0 AND AACI? THEW 3040 

Q(1)=0-(9<0)/2 

IF O<O THEN 3140 

AA=0: GOSUB 3400 

PRINT “---TOTAL IS"sAA 

PRINT 

REH-~TALLY THE RESULT 

REM 

Z$="LOSES PUSHES WINS “ 

FOR I=1 TON 

AA=O(1): GOSUB 3400 

AB=Q(1+D1}: GOSUB 3410 

AC=0(B1): GOSUB 3420 

S(1)=S (1) +B CL) 4+S6N(AA-AC) +B (1401) #S6N (AB-AC) 
B(I+B1)=0 

PRINT "PLAYER"; 13 

PRINT HIDS(Z$,SGN(S(1) )#4+7,6)5" 

IF §(1)<50 THEM 3250 

PRINT * ms 

GOTO 32460 

PRINT ABS(S(I))3 

TED)=T (1) 48 (2) 

PRINT “TOTAL="3T(1} 

GOSUB 1200 

TEDL) =T(D1)-S(L) 

1s1+D4 

BOSUB 1200 

IsI-Dt 

NEXT I 

PRINT "DEALER'S TOTAL="*T(D1) 

GOSUB 1200 

GOTO 1810 

AR=AAFTTH(AAD=22): RETURN 

AB=ABF11*(ABY=22)2 RETURN 

ACHACHI14(ACS=22} RETURN 


THEN 2850 


Bombardment 


BOMBARDMENT is played on two, 5x5 
grids or boards with 25 outpost 
locations numbered 1 to 25. Both you 
and the computer have four platoons of 
troops that can be located at any four 
outposts on your respective grids. 

At the start of the game, you locate 
(or hide) your four platoons on your 
grid. The computer does the same on 
its grid. You then take turns firing 
missiles or bombs at each other's 
outposts trying to destroy al! four 
platoons. The one who finds all four 
opponents’ platoons first, wins. 

This program was slightly modified 
from the original written by Martin 
Burdash of Parlin, New Jersey. 


BOMBARDHENT 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU 
HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED. 
YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST. 
THE COMPUTER DOES THE SANE WITH ITS FOUR PLATOONS. 


THE OBJECT OF THE GAME 15 TO FIRE MISSILES AT THE 
OUTPOSTS OF THE COMPUTER. IT WILL DO THE SAME TO YoU. 
THE ONE UHO DESTROYS ALL FOUR OF THE ENENY’S PLATOONS 
FIRST IS THE WINNER. 


GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT! 


TEAR OFF MATRIX AND USE IT TO CHECK OFF THE NUMBERS. 


i 2 4 4 
6 ? 8 9 
"1 12 13 14 
16 17 18 19 
21 22 23 24 


WHAT ARE YOUR FOUR POSITIONS? 10,9,16,24 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 3 
HA, HA YOU MISSED. MY TURN NOW 


I MISSED YOU, YOU DIRTY RAT. 1 PICKED 21 . YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 3 
HA, HA YOU MISSED. HY TURN NOW 


IT HISSED YOU, YOU DIRTY RAT. I PICKED 23 . YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 13 
HA, HA YOU MISSED. MY TURN NOW 


IT MISSED YOU, YOU DIRTY RAT. I PICKER 22. YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 11 
HA, HA YOU MISSED. HY TURN NOW 


I MISSED YOU, YOU DIRTY RAT. I PICKED 13. YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR HISSE'LE? 9 
HA, HA YOU MISSED. MY TURN NOU 


I MISSED YOU, YOU DIRTY RAT. I PICKED 15. YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 25 
HA, HA YOU MISSED. MY TURN NOW 


TMISSED YOU, YOU DIRTY RAT. I PICKED 12. YOUR TURN, 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 5 
HA, HA YOU MISSED. MY TURN NOY 


I MISSED YOU, YOU DIRTY RAT. I PICKED 1. YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 20 
HA, HA YOU MISSED. MY TURN NOW 


1 GOT YOU. IT WON’T BE LONG NOW. POST 16 WAS HIT. 
YOU HAVE ONLY THREE OUTPOSTS LEFT. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 21 
HA, HA YOU MISSED. MY TURN NOW 


I HISSED YOU, YOU DIRTY RAT. I PICKED 20. YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSTLE? 23 
YOU GOT ONE OF MY OUTPOSTS. 
OWE DOWN, THREE TO GO 


I MISSED YOU, YOU DIRTY RAT. I PICKED 8 . YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSTLE? 16 
HA, HA YOU MISSED. MY TURN NOW 


I MISSED YOU, YOU DIRTY RAT. I PICKED 4. YOUR TURN. 


WHERE DO YOU VISH TO FIRE YOUR WISSILE? 15 
HA, HA YOU MISSED. MY TURN NOU 


I MISSED YOU, YOU DIRTY RAT. I PICKED 6. YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSELE? 14 
YOU GOT ONE OF HY OUTPOSTS. 
Tua DOWN, TWO TO GO 


1 GOT YOU. IT UON’T BE LONG NOW. POST 10 WAS HIT. 
YOU HAVE ONLY TWO OUTPOSTS LEFT. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 13 WHERE DO YOU WISH TO FIRE YOUR MISSILE? 3 


HA, HA YOU MISSED. MY TURN NOW HA, HA YOU MISSED. MY TURN NOU 

I MISSED YOU, YOU DIRTY RAT. I PICKED 19 . YOUR TURN. T MISSED YOU, YOU DIRTY RAT. I PICKED 3. YOUR TURN. 
WHERE DO YOU WISH TO FIRE YOUR MISSILE? 12 WHERE DO YOU WISH TO FIRE YOUR WISSTLE? 4 

HA, HA YOU MISSED. MY TURN NOU HA, HA YOU MISSED. MY TURN NOW 

I MISSED YOU, YOU DIRTY RAT. I PICKED 7 . YOUR TURN. I MISSED YOU, YOU DIRTY RAT. I PICKED 14 . YOUR TURN. 
WHERE DO YOU WISH TO FIRE YOUR MISSILE? 11 WHERE DO YOU WISH TO FERE YOUR HISSLLE? 22 

HA, HA YOU MISSED. HY TURN NOU HA, HA YOU MISSED. MY TURN NOW 

I GOT YOU. IT WON’T BE LONG NOW. POST 24 WAS HIT. I MISSED YOU, YOU BIRTY RAT. I PICKED 25 . YOUR TURN. 


YOU HAVE ONLY ONE OUTPOST LEFT. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 12 
WHERE DD YOU WISH TO FIRE YOUR MISSILE? 1 HA, HA YOU KISSED. MY TURN NOU 
HA, HA YOU MISSED. MY TURN NOW 


I HISSED YOU, YOU DIRTY RAT. I PICKED 11 . YOUR TURN. 
I MISSED YOU, YOU DIRTY RAT. I PICKED 2. YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 9 

UHERE BO YOU WISH TO FIRE YOUR MISSILE? 2 HA, HA YOU MISSED. MY TURN NOU 

YOU GOT OWE OF MY OUTPOSTS. 

THREE DOWN, ONE TO GO 
YOURE DEAD. YOUR LAST OUTPOST WAS AT 9 . HA, HA, HA. 
BETTER LUCK NEXT TIME. 

I MISSED YOU, YOU DIRTY RAT. I PICKED 18. YOUR TURN. 


10 PRINT TAB(28);"BONBARDNENT" 


20 PRINT TABCIS)S"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 600 IF X=L THEN 920 

30 PRINT:PRINT:PRINT 610 IF X=K THEN 920 

100 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YoU" 620 GOTO 670 

110 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED.” 630 PRINT " HA, HA YOU MISSED. HY TURN ROW" 
120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST.” 640 PRINT: PRINT: GOTO 570 

130 PRINT "THE COMPUTER DOES THE SANE WITH ITS FOUR PLATOONS.” 670 PRINT “I HISSED YOU, YOU DIRTY RAT. I PICKED";Hs". YOUR TURN." 
135 PRINT 680 PRINT: PRINT: GOTO 500 

140 PRINT “THE OBJECT OF THE GANE IS TO FIRE MISSLES AT THE" 710 Q=a+1 

150 PRINT “OUTPOSTS OF THE COMPUTER. IT WILL DO THE SAME TO YoU." 720 IF G=4 THEN 890 

160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENENY’S PLATOONS” 730 PRINT "YOU GOT ONE OF HY OUTPOSTS.” 

170 PRINT “FIRST IS THE WINNER." 740 IF Q=1 THEN 770 

180 PRINT 750 IF G=2 THEN 810 

190 PRINT "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!" 760 IF O=3 THEN 850 

200 PRINT 770 PRINT “ONE DOUN, THREE TO 60" 

210 PRINT “TEAR OFF HATRIX AND USE IT TO CHECK OFF THE NUMBERS." 780 PRINT: PRINT: GOTO 570 

220 FOR R=t TO Sz PRINT: NEXT R 810 PRINT "Tuo DOWN, TWO TO Go" 

260 DIM H(100) 820 PRINT: PRINT: GOTO 570 

270 FOR R=! TO 5 850 PRINT “THREE DOWN, ONE TO GO” 

280 T=(R-1)#5+1 860 PRINT: PRINT: GOTO 570 

290 PRINT I,1+1,1+2,143,1¢4 870 PRINT “YOU GOT HE, I1°H GOING FAST. BUT I‘LL GET YOU WHEN” 
300 HEXT R 900 PRINT " Y TRANSISTORS SECUPERA E” 

350 FOR R=! TO 10: PRINT: NEXT R 910 GOTO 1235 

380 CHINT(RND(1)#25)41 920 22241 

390 D=INT(RND(1)#25)41 930 IF Z=4 THEN 1110 

AOO E=INT(RND(1)#25)41 940 PRINT “I GOT YOU. IT WON’T BE LONG NOU, POST"SX3"WAS HIT." 
410 FeINT(RND(1 925) 41 950 IF Z=1 THEN 990 

420 IF C=D THEN 390 960 IF Z=2 THEN 1030 

430 IF C=E THEN 400 970 IF Z=3 THEN 1070 

440 IF C=F THEN 410 990 PRINT “YOU HAVE ONLY THREE OUTPOSTS LEFT.” 
450 IF D=E THEN 400 1000 PRINT: PRINT: GOTO 500 

460 IF D=F THEN 410 1030 PRINT “YOU HAVE ONLY T¥O OUTPOSTS LEFT." 
470 IF E=F THEN 410 1940 PRINT: PRINT: GOTO 500 

480 PRINT “WHAT ARE YOUR FOUR POSITIONS"; 1070 PRINT “YOU HAVE ONLY ONE OUTPOST LEFT." 
490 INPUT G,H,KyL 1080 PRINT: PRINT: GOTO 500 

495 PRINT 1110 PRINT "YOURE DEAD. YOUR LAST OUTPOST WAS AT*;X3". HA, HA, HA." 
500 PRINT "WHERE DO YOU WISH TO FIRE YOUR HISSLE"; 1420 PRINT “BETTER LUCK NEXT TIME.” 

510 INPUT Y 1150 GOTO 1235 

520 IF Y=C THEN 710 1160 P=P4t 

530 IF Y=D THEN 710 1170 H=P-t 

540 IF Y=€ THEN 710 4180 FOR T=1 10 4 

550 IF Y=F THEN 710 1190 IF HeMCT) THEN 570 

540 GOTO 630 1200 NEXT T 

570 H=INTCRND(1)#25)41 1210 xXeH 

575 GOTO 1140 1220 A(P)=H 

580 IF X=G THEN 920 1230 GOTO 580 

590 IF X=# THEN 920 1235 END 
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Bombs Away 


In this program, you fly a Worid War 
ll bomber for one of the four 
protagonists of the war. You then pick 
your target or the type of plane you are 
flying. Depending upon your flying 
experience and the quality of the 
enemy defenders, you then may ac~ 
complish your mission, get shot down, 
or make it back through enemy fire. In 
any case, you get a chance to fly again. 

David Ah! modified the original 
program which was created by David 
Sherman while a student at Curtis Jr. 
High School, Sudbury, Massachusetts. 


BOMBS AWAY 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


YOU ARE A PILOT IN A WORLD WAR II BOMBER. 
WHAT SIDE ~~ ITALY(1), ALLIES(2), JAPAN(3), GERMANY(4)? 2 
AIRCRAFT ~~ LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)? 4 


YOURE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR. 


HOW MANY MISSIONS HAVE YOU FLOWN? 25 


DIRECT HIT!?!! 43 KILLED. 
MISSION SUCCESSFUL. 


ANOTHER MISSION (Y OR ND? Y 

YOU ARE A PILOT IN A WORLD WAR IL BOMBER. 

WHAT SIDE -- ITALY(1), ALLIES(2), JAPAN(3), GERHANY(4)? 3 
YOUCRE FLYING A KAMIKAZE MISSION OVER THE USS LEXINGTON. 
YOUR FIRST KAHIKAZE MISSION(Y GR ND? Y 


** * * BOOK FO FO 

YOU HAVE BEEN SHOT DOUN..... 

DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR 
LAST TRIBUTE... 


ANOTHER MISSION (Y OR N)? Y 

YOU ARE A PILOT IN A WORLD WAR IT BOMBER, 

WHAT SIDE ~~ ITALY(1), ALLIES(2), JAPAN(3), GERMANY(4)? 1 
YOUR TARGET -- ALBANIA(1), GREECE(2), NORTH AFRICA(3)7 4 


SHOULD BE EASY -~ YOU’RE FLYING A NAZI-HADE PLANE. 


HOW HANY MISSIONS HAVE YOU FLOWN? 200 
MISSIONS, NOT HILES... 

150 MISSIONS 1S HIGH EVEN FOR OLD~-TIMERS. 

NOW THEN, HOW MANY MISSIONS HAVE YOU FLOWN? 2 


pond 


BP 
10 

20 

22 

25 

30 

40 

a2 

45 

50 

60 

80 

90 

110 
120 
122 
125 
130 
150 
170 
190 
195 
200 
205 
207 
210 
215 
220 
230 
232 
235 
250 
260 
270 
280 
285 
290 
292 
295 
297 
300 
305 
310 
320 
325 
32? 
330 
335 
340 
Rib) 
347 
350 
335 
357 
360 
365 
370 
380 
384 
386 
387 
390 
395 
400 
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RINT "YOU ARE A PILOT IN A WORLD WAR I1 BOMBER." 

INPUT “WHAT SIDE -~ ITALY(4), ALLIES(2), JAPAN(3), GERMANY(4)"A 
IF A>O AND ACS THEN 25 

PRINT “TRY AGAIN..." : GOTO 10 

ON A GOTO 30, 110, 200, 220 

INPUT "YOUR TARGET ~- ALBANIA(1), GREECE(2), NORTH AFRICA(3)";B 
IF B>O AND B<4 THEN 45 
PRINT “TRY AGAIN..." 2 GOTO 30 
PRINT : ON B GOTO 50, 80,90 
PRINT "SHOULD BE EASY ~~ YOURE FLYING A NAZI-MADE PLANE.” 
GoTo 280 
PRINT "BE CAREFUL!!!" : GOTO 280 
PRINT “YOURE GOING FOR THE OIL, EH?" : GOTO 280 

INPUT "AIRCRAFT -~- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4) "56 
IF 6>0 AND G<5 THEN 125 

PRINT "TRY AGAIN..." : GOTO £10 

PRINT : ON G GOTO 130, 150, 170, 190 

PRINT “YOUVE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI." : GOTO 280 
PRINT “YOUCRE DUMPING THE A-BOMB ON HIRGSHIMA." : GOTO 280 
PRINT “YOUCRE CHASING THE BISHARK IN THE NORTH SEA." : GOTO 280 
PRINT "YOURE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR.” 
GOTO 280 

PRINT "YOURE FLYING A KAMIKAZE MISSION OVER THE USS LEXINGTON." 
INPUT "YOUR FIRST KAMIKAZE MISSIONCY OR N° EFS 

IF F$="N" THEN S=0 : GOTO 358 

PRINT s IF RND(1)>.65 THEN 325 

GOTO 380 

PRINT “A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSIA(1)," 
INPUT "ENGLAND(2), OR FRARCE(S)"34 : IF N>O AND H<4 THEN 235 
PRINT “TRY AGAIN..." 2: GOTO 220 

PRINT : ON M GOTO 250, 240, 270 

PRINT “YOURE NEARING STALINGRAD." : GOTO 280 

PRINT “NEARING LONDON. BE CAREFUL, THEY“VE GOT RADAR.” : GOTO 280 
PRINT "NEARING VERSAILLES. DUCK SOUP. THEYRE NEARLY DEFENSELESS. 
PRINT 

INPUT "HOW MANY MISSIONS HAVE YOU FLOWN" SD 

IF D<160 THEN 300 

PRINT "MISSIONS, NOT HILES..." 

PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS." 

PRINT "NOU THEN, "} 3 GOTO 285 

PRINTSIF D<100 THEN 310 

PRINT “THAT“S PUSHING THE ODDS!" =: GOTO 320 

IF D<25 THEN PRINT "FRESH OUT OF TRAINING, EH?" 

PRINT 3 IF D<160#RND(1) THEN 330 

PRINT "DIRECT HITEEE! “ENTC1O04RND(1) "KILLED." 

PRINT "HISSION SUCCESSFUL." : GOTO 370 

PRINT “HISSED TARGET BY" INT(2+30*RND(1))"HILES!" 

PRINT “NOW YOURE REALLY IN FOR IT $1" : PRINT 

INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(I)"5R 
IF R>O AND R<4 THEN 350 

PRINT “TRY AGAIN...” : GOTO 340 

PRINT : T=0 2: IF R=2 THEN 360 

INPUT "WHATS THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)"3S 
IF S<10 THEN PRINT "YOU LIE, BUT YOULL PAY...": GOTO 380 

PRINT : IF RO1 THEN T#35 

IF S#T>TOO#RND(T) THEN 380 

PRINT “YOU HADE IT THROUGH TREMENDOUS FLAK!!" ; GOTO 390 

PRINT “# * # * BOOM * # & *” 

PRINT “YOU HAVE BEEN SHOT DOWN....." 

PRINT “DEARLY BELOVED, WE ARE GATHERED HERE TODAY T0 PAY OUR” 
PRINT “LAST TRIBUTE..." 

PREINTSPRINTSPRINTSINPUT "ANOTHER MISSION (Y OR WR)" SUS 

IF Us="¥" THEN 8 

PRINT "CHICKEN !'!" ¢ PRINT : END 


This program plots a bouncing ball. 
Most computer plots run along the 
paper in the terminal (top to bottom); 
however, this plot is drawn horizontally 
on the paper (left to right). 

You may specify the initial velocity of 
the bail and the coefficient of elasticity 
of the ball (a superball is about 0.85 — 
other balls are much less). You also 
specify the time increment to be used 
in “strobing” the flight of the ball. In 
other words, it is as though the ball is 
thrown up ina darkened room and you 
flash a light at fixed time intervals and 
photograph the progress of the ball. 

The program was originally written 
by Val Skalabrin while he was at DEC. 


10 PRINT TAB(33); “BOUNCE” 
20 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 


BOUNCE 30 PRINT:PRINTsPRINT 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 90 DIK T(20) 
100 PRINT "THIS SIMULATION LETS YOU SPECIFY THE INITIAL VELOCITY 
THIS SIMULATION LETS YOU SPECIFY THE INITIAL VELOCITY 110 PRINT “OF A BALL THROWN STRAIGHT UP, AND THE COEFFICIENT oF” 
OF A BALL THROUN STRAIGHT UP, AND THE COEFFICIENT OF 120 PRINT “ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION" 
ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION 130 PRINT “COEFFICIENCY (LESS THAN 1)." 
COEFFICIENCY (LESS THAN 1). 131 PRINT 
132 PRINT “YOU ALSO SPECIFY THE TINE INCREMENT TD BE USED IN" 
YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN 133 PRINT “*STROBING’ THE BALL‘S FLIGHT (TRY .1 INITIALLY)." 
“STROBING’ THE BALL“S FLIGHT (TRY .1 INITIALLY). 134 PRINT 
13S INPUT “TIME INCREMENT (SEC) "sS2 
TIME INCREMENT (SEC)? .1 140 PRINT 
150 INPUT “VELOCITY (FPS)"3¥ 
VELOCITY (FPS)? 30 160 PRINT 
170 INPUT “COEFFICIENT";€ 
COEFFICIENT? .9 180 PRINT 
182 PRINT “FEET” 
FEET 184 PRINT 
186 STSINT(70/(V/(16#52))) 
14 000 190 FOR I=f TO S1 
0 200 TCL)=¥eC*(1-1)/16 
13 Q 0 210 WEXT I 
220 FOR H=INT(~-168(V/32)°2+V"2/324.5) TO 0 STEP ~.5 
12 0 4 221 ITF ENTCH)<OH THEN 225 
00 222 PRINT H; 
hn) 0 0 225 L=0 
Q 0 0 230 FOR I=1 TO SI 
10 240 FOR T=0 TO TCT) STEP $2 
0 0 0 245 L=L+82 
9 0 0000 250 IF ABS(H~(.54(~-32) 47° 244° (1-1)4T)} 29.25 THEN 270 
0 260 PRINT TAB(L/S2);"0"; 
8 0 a 0 270 NEXT T 
0 0 275 T=T(I+1)/2 
? 0 0 276 IF -1oeT*2+Vec*(1-1)eT<H THEN 290 
0 0 280 NEXT I 
é 0 Q 290 PRINT 
0 300 NEXT H 
3 o 0 StO PRINT TABCT)S 
0 Q 320 FOR [=1 TO INT(L41)/S241 
4 0 330 PRINT °."5 
340 NEXT I 
30 350 PRINT 
tH) 0 Qo 355 PRINT " 0"; 
2 0 Q 360 FOR I=1 TO INT(L+.9995) 
380 PRINT TABCINT(I/S2))313 
| 390 NEXT I 
] 400 PRINT 
00 0 0 410 PRINT TABCINT(L#1)/(2%52)-2) 3 "SECONDS" 
Soon nnn ee nn enn 420 PRINT 
0 } 2 a 4 3 é 430 GOTO 135 
SECONDS 440 END 
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Bowling 


This is a simulated bowling game for 
up to four players. You play 10 frames. 
To roll the ball, you simply type 
“ROLL.” After each roll, the computer 
will show you a diagram of the remain- 
ing pins (“O” means the pin is down, “+” 
means it is still standing), and it will 
give you a roll analysis: 

GUTTER 

STRIKE 

SPARE 

ERROR (on second ball if pins still 
standing) 

Bowling was written by Paul Peraino 
while a student at Woodrow Wilson 


High School, San Francisco, Califor- 
nia. 


BOUL 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


WELCOME TO THE ALLEY 
BRINE YOUR FRIENDS 
OKAY LET‘S FIRST GET ACQUAINTED 


THE INSTRUCTIONS (Y/N) 

TY 

THE GAME OF BOWLING TAKES SKILL.DURING THE GAKE 

THE COMPUTER WELL KEEP SCORE.YOU WAY COMPETE WITH 

OTHER PLAYERSCUP TO FOUR].YOU WILL BE PLAYING TEN FRAMES 
ON THE PIN DIAGRAM “O’ MEANS THE PIN IS DOWN...°+’ MEANS T 
PIN IS STANDING.AFTER THE GAME THE COMPUTER WILL SHOU YOUR 
SCORES . 

FIRST OF ALL...HOW MANY ARE PLAYING? 2 


VERY GOOD... 

TYPE ROLL TO GET THE BALL GOING. 
? ROLL 

PLAYER: 1 FRAME: 1 BALL: 1 


o00+ 
o+ 0 
00 
0 


TYPE ROLL TO GET THE BALL GOING. 
7? ROLL 
PLAYER: 1 FRAME: 1 BALL: 2 


ooaa0 
o+0 
00 
a 
ERRORIL! 


TYPE ROLL TO GET THE BALL GOING. 
7 ROLL 
PLAYER: 2 FRAHE: 1 BALL: 1 


ao000 
+00 
o+ 
0 


TYPE ROLL 
7 ROLL 
PLAYER: 2 


oo0o0 
+00 
ot 
0 
GUTTER! ! 
ERROR!!! 


TYPE ROLL 
7 ROLL 
PLAYER: 1 


oo+0 
+00 
oo 
0 


TYPE ROLL 
? ROLL 
PLAYER: 1 


oo+0 
+60 
oo 
a 
GUTTER! 
ERROR!!! 


TYPE ROLL 
7 ROLL 
PLAYER: 2 


goaa+ 
0+0 
+0 
0 


TYPE ROLL 
? ROLL 
PLAYER: 2 


a0o00 
900 
+0 
0 
ERRORI!! 


TYPE ROLL 
? ROLL 
PLAYER: 1 


+000 
oo0 
O + 
0 


TYPE ROLL 

7 ROLL 

PLAYER: 1 

+000 
000 
00 


Q 
ERROR!!! 
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TO GET THE BALL GOING. 


FRAME: 1 BALL: 2 


TO GET THE BALL GOING. 


FRAME: 2 BALL: 1 


TO GET THE BALL GOING. 


FRAWE: 2 BALL: 2 


TO GET THE BALL GOING. 


FRANE: 2 BALL: 1 


TO GET THE BALL GOING. 


FRANE: 2 BALL: 2 


TO GET THE BALL GOING. 


FRAME: 3 BALL: 1 


TO GET THE BALL GOING. 


FRAME: 3 BALL: 2 


TYPE ROLL TO GET 
7 ROLL 
PLAYER: 2 FRAME: 


O+ 0+ 
oo 
++ 

0 


TYPE ROLL TO GET 
? ROLL 
PLAYER: 2 FRAME: 


o000 
600 
00 
0 
SPARE!1!! 


TYPE ROLL Td GET 
? ROLL 
PLAYER: 1 FRAME: 


+400 
gaa 
oo 
6 


TYPE ROLL TO GET 
? ROLL 
PLAYER: 1 FRAME: 


0000 
000 
60 


Q 
SPARE! tt! 


TYPE ROLL TO GET 
? ROLL 
PLAYER: 2 FRAME: 


Oo + 
oor 
00 
+ 


TYPE ROLL TO GET 
7 ROLL 
PLAYER: 2 FRAME: 


aoo0aa 
oad 
00 
0 
SPARE!Hi!1 


TYPE ROLL TO GET 
? ROLL 
PLAYER: 1 FRAME: 


oo 0+ 
o+0 
00 
0 


THE BALL GOING. 


3 BALL: 1 


THE BALL GOING. 


3 BALL: 2 


THE BALL GOING. 


4 BALL: 1 


THE BALL GOING. 


4 BALL: 2 


THE BALL GOING. 


4 BALL: 1 


THE BALL GOING. 


4 BALL: 2 


THE BALL GOING. 


5 BALL: 1 


10 PRINT TAB(34); "BOUL" 

20 PRINT TAB(IS);"CREATIVE COMPUTING NORRISTOWN, NEW JERSEY” 
30 PRINT:PRINT: PRINT 

270 DIM C(15),A(100,6) 

360 PRINT “WELCOME TO THE ALLEY" 

450 PRINT "BRING YOUR FRIENDS" 

540 PRINT "OKAY LET’S FIRST GET ACQUAINTED" 

630 PRINT "* 

720 PRINT “THE INSTRUCTIONS (Y/W)" 

ato INPUT Z$ 

900 IF Z$="¥" THEN 990 

960 IF Z$="N" THEN 1530 

990 PRINT “THE GAKE OF BOWLING TAKES HIND AND SKILL.DURING THE GAME" 
1080 PRINT “THE COHPUTER WILL KEEP SCORE.YOU HAY COMPETE WITH" 
1170 PRINT “OTHER PLAYERSCUP TO FOURI.YOU WILL BE PLAYING TEN FRAMES” 
1260 PRINT “ON THE PIN DIAGRAM “O° HEANS THE PIN IS DOWN...7+° HEANS THE® 
1350 PRINT “PIN 1S STANDING. AFTER THE GAME THE COMPUTER WILL SHOW YOUR” 
1440 PRENT "SCORES ." 

1530 PRINT "FIRST OF ALL...HOW MANY ARE PLAYING": 

1620 INPUT R 

1710 PRINT 

1800 PRINT “VERY GOOD..." 

1890 FOR I=t TO 100: FOR J=1 TO 6: ACL,J)=0: HEXT J: NEXT 1 
1980 Ft 

2070 FOR P=t TOR 

2160 H=0 

2250 Bet 

2340 H=O: Q=0 

2430 FOR I=1 10 152 C(L}=0: NEXT I 

2520 REMARK BALL GENERATOR USING HOD “15° SYSTEM 

2610 PRINT “TYPE ROLL TO GET THE BALL GOING." 

2700 INPUT NS 

2790 Ker D=0 

2980 FOR I=1 TY 20 

2970 XEINT(RNDCT) #100) 

3060 FOR J=t TO 10 

3i50 IF X<15%) THEN 3330 

4240 EXT J 

3330 CS#I-X) 24 

$420 NEXT I 

3510 REMARK PIN DIAGRAM 

3600 PRINT "PLAYERS "Ps “FRAMES "TF"BALLE°B 

4690 FOR I=0 10 3 

3780 PRINT 

3870 FOR J=1 TO 4-1 

3960 Keke 

A050 IF CUK)=1 THEN 4320 

4140 PRINT TABCL)3"+ "3 

4230 GOTO 4410 

4320 PRINT TABCT)3"0 "5 

A410 HEXT J 
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NEXT I 

PRINT "“ 

REMARK ROLL ANALYSIS 

FOR I=1 TQ 10 

D=D+C(1) 

NEXT I 

IF D-H <> 0 THEN 9220 
PRINT “GUTTERIE" 

IF B<>t OR DL>10 THEN 9490 


Q=3 

IF BX>2 OR DC10 THEN 5760 
PRINT “SPAREL THI" 

Q=2 

IF B<>2 OR D>=10 THEN 6030 
PRINT "ERRORE! I" 

Q=1 

IF BC>1 OR D>=40 THEN 6210 
PRINT "ROLL YOUR 2ND BALL” 
REMARK STORAGE OF THE SCORES 
PRINT 

ACF#P, B)=0 

IF B=2 THEN 7020 


F G=3 THEN 6210 
ACFSP, B)=D-M 
IF Q=0 THEN 2520 


ACF#P,3)=0 

NEXT P 

FeF+t 

IF F<1i THEN 2070 


PRINT “FRAMES” 

FOR T=1 TO 10 

PRINT I; 

NEXT I 

PRINT 

FOR P=1 TOR 

FOR [=1 70 3 

FOR J=1 TO 10 

PRINT ACJHP, 1); 

HEXT J 

PRINT 

NEXT I 

PRINT 

NEXT P 

PRINT "DO YOU WANT ANDTHER GAME" 
INPUT AS 

IF LEFT$(A$,1)="Y" THEN 2610 


END 


This program simulates a three- 
round Olympic boxing match. The 
computer coaches one of the boxers 
and determines his punches and 
defenses, while you do the same for 
your boxer. At the start of the match, 
you may specify your man’s best punch 
and his vulnerability. 

There are approximately seven ma- 
jor punches per round, although this 
may be varied in Statement 185. The 
best two out of three rounds wins. 

Jesse Lynch of St. Paul, Minnesota 
created this program. 


BOXING 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


BOXING OLYMPIC STYLE (3 ROUNDS ~~ 2 OUT OF 3 WINS) 

WHAT IS YOUR OPPONEWT’S NAHE? MEATHEAD 

INPUT YOUR HAN’S NAME? SUPERMAN 

DIFFERENT PUNCHES ARE 1 FULL SUING 2 HOOK 3 UPPERCUT 4 JAB 
WHAT IS YOUR HANS BEST? 3 

WHAT IS HIS VULNERABILITY? 2 

MEATHEAD’S ADVANTAGE IS 2 AND VULNERABILITY IS SECRET. 
ROUND 1 BEGINS... 


SUPERHAN’S PUNCH? 1 
SUPERHAN SWINGS AND HE CONNECTS! 
SUPERMAN IS ATTACKED BY AN UPPERCUT (OH,OH)... 
AND MEATHEAD CONNECTS... 
SUPERMAN’S PUNCH? 4 
SUPERHAN JABS AT HEATHEAD’S HEAD SUPERNAN’S PUNCHY 3 
SUPERMAN TRIES AN UPPERCUT AND IT’S BLOCKED (LUCKY BLOCK!) 
SUPERMAN’S PUNCH? 3 
SUPERMAN TRIES AN UPPERCUT AND HE CONNECTS! 
SUPERHAN‘S PUNCH? 3 
SUPERMAN TRIES AN UPPERCUT AND IT’S BLOCKED (LUCKY BLOCK!) 
SUPERHAN‘S PUNCH? 2 
SUPERMAN WINS ROUND 1 
ROUND 2 BEGINS... 


MEATHEAD JABS AND BLOOD SPILLS !!! 

SUPERHAN’S PUNCH? 1 

SUPERMAN SWINGS AND HE CONNECTS! 

MEATHEAD JABS AND IT1°S BLOCKED ! 

SUPERMAN IS ATTACKED BY AN UPPERCUT (QH,OH)... 
BLOCKS AND HITS MEATHEAD WITH A HOOK. 

NEATHEAD TAKES A FULL SWING AND BUT IT’S BLOCKED ! 
NEATHEAD WINS ROUND 2 

ROUND 3 BEGINS... 


SUPERMAN’S PUNCH? 4 

SUPERMAN JABS AT NEATHEAD’S HEAD SUPERMAN’S PUNCH? 3 

SUPERMAN TRIES AN UPPERCUT AND HE CONNECTS! 

SUPERMAN‘S PUNCH? 3 

SUPERMAN TRIES AN UPPERCUT AND I7°S BLOCKED (LUCKY BLOCK!) 


SUPERMAN SUINGS AND HE CONNECTS! 

SUPERMAN‘S PUNCH? 1 

SUPERHAN SWINGS AND HE CONNECTS! 

SUPERHAN’S PUNCH? 3 

SUPERMAN TRIES AN UPPERCUT AND IT’S BLOCKED (LUCKY BLOCK!) 
SUPERMAN WINS ROUND 3 

SUPERHAN AMAZINGLY WINS 


AND NOW GOODBYE FROM THE OLYMPIC ARENA. 
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1 PRINT TAB(33) 5 "BOXING" 

2 PRINT TABCIS); "CREATIVE COMPUTING HORRISTOUN, NEW JERSEY" 
3 PRINTSPRINTEPRINT 

A°PRINT “BOXING OLYHPIC STYLE (3 ROUNDS -- 2.0UT OF 3 WINS)" 
53 J=0 

6 L=0 

10 PRINT "WHAT IS YOUR OPPONENT’S NAME"; 
20 INPUT JS 

30 PRINT "INPUT YOUR NAN’S NAHE"; 

40 INPUT L$ 

50 PRINT “DIFFERENT PUNCHES ARE 1 FULL SUING 2 HOOK 3 UPPERCUT 4 JAB" 
60 PRINT "WHAT IS YOUR HANS BEST'S 

64 INPUT B 

70 PRINT “WHAT IS HIS VULNERABILITY"; 
80 INPUT D 

90 BI=INT(4#RND(I)+1) 

100 DIZINT(4*RND(1)4+1) 

110 IF BI=Dt THEN 90 

120 PRINT J$;""S ADVANTAGE IS";Bis"AND VULNERABILITY IS SECRET.” 
130 FOR R=1 TO 3 

140 IF §>= 2 THEN 1040 

150 IF L>=2 THEN 1060 

160 X=0 

170 Y=0 

180 PRINT "ROUND";R}"BEGINS..." 

181 PRINT “" 

185 FOR Rl= 1 TO 7 

190 T=INTCTO#RND(1)+1) 

200 IF I>5 THEN 600 

210 PRINT L$;"’S PUNCH"; 

220 INPUT P 

221 IF P=B THEN 225 

222 GOTO 230 

225 X=X4+2 

230 IF P=1 THEN 340 

240 IF P=2 THEN 450 

250 IF P=3 THEN 520 

270 PRINT L$5" JABS AT "33$°"S HEAD "3 
271 IF Di=4 THEN 290 

275 CHINTCB*RND(1)4+1) 

280 IF C<4 THEN 310 

290 XeX+3 

300 GOTO 950 

310 PRINT “IT’S BLOCKED" 

330 GOTO 950 

340 PRINT L$ * SWINGS AND “; 

S41 IF Diz4 THEN 410 

JAS XS=INT(SO#RND C141) 

350 IF X3<10 THEN 410 

360 PRINT " HE MISSES "3; 

370 PRINT 

375 IF X=1 THEN 950 

380 PRINT 

390 PRINT 

400 GOTO 300 

410 PRINT “HE CONNECTS!" 

420 IF X>35 THEN 980 

425 X=X+t5 

440 GOTO 300 

450 PRINT L$;" GIVES THE HOOK... "s 
455 IF Di=2 THEN 480 

460 HI=INT(2*RND(1) 41) 

470 IF Hi=t THEN 500 

473 PRINT "CONNECTS..." 

480 X=X+7 

4970 GOTO 300 


910 GOTG 300 

520 PRINT L$ * TRIES AN UPPERCUT =“; 
530 IF Di=3 THEN 570 

340 DS=INT(TOO#RND(1)41) 

550 IF BS<St THEN 570 

360 PRINT " AND IT’S BLOCKED (LUCKY BLOCK!)" 
5465 GOTO 300 

570 PRINT “AND HE CONNECTS!" 
580 X=X+4 

570 GOTO 300 

600 J7=INTC4#RND(1)41) 

601 IF J7 =Bl THEN 605 

602 GOTO 410 

605 Ye¥+2 

610 IF J7=t THEN 720 

620 IF J7=2 THEN 810 

630 IF J? =3 THEN 840 

640 PRINT J8$;" JABS AND “3 
645 IF D=4 THEN 700 

50 Z4=INT(7*RND (1) +1) 

655 IF 24>4 THEN 690 

660 PRINT “ IT’S BLOCKED !° 
670 GOTO 300 

690 PRINT " BLOOD SPILLS !'t" 
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700 
710 
720 
730 
740 
745 
750 
760 
770 
780 
790 
800 
810 
820 
830 
835 
840 
850 
840 
865 
870 
880 
890 
700 
910 
920 
930 
940 
950 
951 
952 
953 
954 
955 
956 
760 
961 
962 
780 
1000 
1010 
1030 
1040 
1050 
1060 
1070 
1080 
1085 
1090 
1100 
1410 


YRYs5 

GOTO 300 

PRINT J$" TAKES A FULL SWING AND": 
IF D=1 THEN 770 

RO=INT(OO*RND (141) 

IF R& <30 THEN 770 

PRINT " BUT IT’S BLOCKED !" 

GOTO 300 


IF Y>35 THEN 1010 
Ye¥e5 
GOTO 300 
PRINT J$;" GETS "SL45" IN THE JAW (OUCHI)" 
Yey+7 
PRINT "....AND AGAIN!” 
Yeye5 
IF YO35 THEN 1010 
PRINT 
PRINT L$;" IS ATTACKED BY AN UPPERCUT (0H,OH)..." 
IF D=3 THEN 890 
Q4=INT(200@RND(1)41) 
IF @4>75 THEN 920 
PRINT " AND “3J$3" CONNECTS..." 
Ye¥+8 
GOTO 300 
PRINT “ BLOCKS AND HITS “3J$;" WITH A HOOK." 
X2X45 
GOTO 300 
NEXT Rt 
TF X>Y THEN 955 
PRINT J$" WINS ROUND" R 
Jeet 
GOTO 760 
PRINT L$" WINS ROUND "R 
L=L+t 
NEXT R 
IF J>= 2 THEN 1040 
IF L>=2 THEN 1060 
PRINT J$ " IS KNOCKED COLD AND “ L$" IS THE WINNER AND CHAMP "s 
GOTO 1080 
PRINT L$ " IS KNOCKED COLD AND " J$" IS THE WINNER AND CHAMP "s 
GOTO 1000 
PRINT J$ “ WINS (HICE GOING )" JS 
GOTO 1000 
PRINT L$" AMAZINGLY WINS ° 
G0TO 1000 
PRINT 
PRINT 
PRINT “AND NOW GOODBYE FROM THE OLYMPIC ARENA.“ 
PRINT 
END 


(2 


The object of this game is to finish 
your drawing of a bug before the 
computer finishes. 

You and the computer roll a die 
alternately with each number standing 
for a part of the bug. You must add the 
parts in the right order; in other words, 
you cannot have aneck until you havea 
body, you cannot have ahead until you 
have a neck, and so on. After each new 
part has been added, you have the 
option of seeing pictures of the two 
bugs. 

If you elect to see all the pictures, this 
program has the ability of consuming 
well over six feet of terminal paper per 
run. We can only suggest recycling the 
paper by using the other side. 

Brian Leibowitz wrote this program 
while in the 7th grade at Harrison Jr-Sr 
High School in Harrison, New York. 


BUG 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


THE GAME BUG 
1 HOPE YOU ENJOY THIS GAME. 


DO YOU WANT INSTRUCTIONS? YES 

THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH 
MINE. EACH NUMBER STANDS FOR A PART OF THE BUS BODY. 

IT WILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU 
WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART. 

Tf YOU CAN GET THE PART I WILL GIVE I7 TO YOU. 

THE SANE WILL HAPPEN ON WY TURN. 

IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE 
OPTION OF SEEING THE PICTURES OF THE BUGS. 

THE NUMBERS STAND FOR PARTS AS FOLLOWS: 

NUNBER PART NUMBER OF PART NEEDED 

1 Body 
NECK 
HEAD 
FEELERS 
TAIL 
LEGS 


aA Maan 
Pan <a 


YOU ROLLED A 1 

1sbODY 

YOU NOW HAVE A BODY. 

T ROLLED A 4 

A*FEELERS 

I DO NOT HAVE A HEAD. 

DO YOU WANT THE PICTURES? YES 
weeasY OUR BUGsEses 


BBEBBBBBSBBB 
B B 


8 B 
BBBBBBBBBBBB 


I ROLLED A 6 
4*LEGS 

I NOW HAVE 4 LEGS. 

DO YOU WANT THE PICTURES? NO 
YOU ROLLED A 1 

1=BaDY 

YOU DO NOT NEED A BODY. 
I ROLLED A 3 

J=HEAD 

1 DO ROT HEED A HEAD. 
YOU ROLLED A 1 

1=BOBY 

YOU DO HOT NEED A BODY, 
1 ROLLED A 1 

1=BODY 

1 DO NOT NEED A BODY. 
YOU ROLLED A 5 

SeTall 

YOU ALREADY HAVE A TAIL. 
I ROLLED A 1 

1=BODY 

I DO NOT NEED A BODY. 
YOU ROLLED A 3 

SeTAlL 

YOU ALREADY HAVE A TAIL. 
1 ROLLED & 6 

6=LEGS 

1 NOU HAVE 5 LEGS. 

DO YOU WANT THE PICTURES? NO 
YOU ROLLED A 5 

52Tall 

YOU ALREADY HAVE @ TAIL. 
I ROLLED A 4 

4=FEELERS 

I GET A FEELER. 

DO YOU WANT THE PICTURES? NO 
YOU ROLLED A 2 

2=NECK 

YOU DO NOT REED A NECK. 
I ROLLED A 2 

22HECK 

I DO NOT NEED A NECK. 
YOU ROLLED A 4 
4=FEELERS 

YOU DQ NOT HAVE A HEAD. 
1 ROLLED A 1 

TBODY 

1 BO HOT HEED A BODY. 
YOU ROLLED A 2 

2=NECK 

YOU DO NOT NEED A NECK, 
1 ROLLED A 3 

JSHEAD 

1 DO NOT NEED A HEAD. 
YOU ROLLED A 5 

SeTAIL 

YOU ALREADY HAVE A TAIL. 
T ROLLED A 5 

SeTAlL 

1 DO NOT NEED A TAIL. 
YOU ROLLED A 4 

6*LEG 

YOU WOW HAVE 3 LEGS. 

1 ROLLED A 2 

2=NECK 

1 DO NOT NEED A NECK. 
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J=HEAD 

YOU NEEDED A HEAD. 

I ROLLED A 3 

S=HEAD 

I DO NOT NEED A HEAD. 

HO YOU WANT THE PICTURES? NO 
YOU ROLLED A 

S=TAIL 

YOU ALREADY HAVE @ TAIL. 
1 ROLLED A 5 

S=TAIL 

100 NOT NEED A TAIL. 
YOU ROLLED A 2 

2"HECK 

YOU DO NOT NEED A NECK. 
T ROLLED A 6 

SeLEGS 

I NOU HAVE 4 LEGS. 

MY BUG IS FINISHED. 

DO YOU WANT THE PICTURES? YES 
weeseYOUR BUGteee0 


HHHHHHK 
H H 
HOOR 
H H 
# VOH 
HHHHHHH 
Nu 
NN 
BBRBBBBBBBBB 
B B 
B B 
THITTB B 
BBBBBBBBBBBB 
LEL 
LLL 


veaeeeny DUGseeses 


BBBBBBBBBBBB 
8 B 
B B 
TITTTB B 
BBBBBBBBBBBB 
CELLEELEE 
LERLELL 


T HOPE YOU ENJOYED THE GANE, PLAY IT AGAIN SOON!! 


10 PRINT TAB(34); "BUG" 


20 PRINT TAB(IS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


30 PRINTsSPRINTSPRINT 
40 REN 


5Q A=O: B=O: H*Os L=O: N=O: POs G=02 R=O: S=O: T=0: U=Os V=0: Y=0 


60 PRINT “THE GAME BUG 

70 PRINT “I HOPE YOU ENJOY THIS GAKE." 
80 PRINT 

90 PRINT “DO YOU WANT INSTRUCTIONS"; 
100 INPUT Z9 

110 IF Z$="NO" THEN 300 


120 PRINT “THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE 1 FINISH" 

#30 PRINT “HINE. EACH NUMBER STANDS FOR A PART OF THE BUG BODY." 

$40 PRINT "I UILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR You" 
150 PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CaN GET THE PART." 
160 PRINT "IF YOU CAN GET THE PART I WILL GIVE IT To YoU.“ 


170 PRINT “THE SAKE UILL HAPPEN ON HY TURN.” 


180 PRINT “IF THERE IS @ CHANGE IN EITHER BUG I WILL GIVE YOU THE" 
190 PRINT “OPTION OF SEEING THE PICTURES OF THE BUGS." 


200 PRINT “THE NUMBERS STAND FOR PARTS AS FOLLOWS:" 
210 PRINT “NUMBER","PART", “NUMBER OF PART NEEDED" 


220 PRINT "1", "BODY", "1" 
230 PRINT "2", "NECK", "1" 

240 PRINT "3", "HEAD", "t" 

250 PRINT “4", "FEELERS" ,"2" 

260 PRINT “S", "TAIL", "1" 

270 PRINT "6", "LEGS", "6" 

280 PRINT 

290 PRINT 

300 IF ¥>0 THEN 2480 

310 Z=INT(6#RND(1)41) 

320 cet 

330 PRINT “YOU ROLLED A “32 

340 OH Z GOTO 350,430,540,650,760,870 
350 PRINT “1=BODY" 

360 IF B=t THEN 410 

370 PRINT "YOU NOW HAVE A BODY.” 
380 Bal 

390 C20 

400 GOTO 970 

410 PRINT “YOU DO NOT NEED A BODY." 
420 60TO 970 

430 PRINT "23NECK" 

440 IF N21 THEN 500 

450 1F B=0 THEN 520 

460 PRINT "YOU NOW HAVE A NECK." 
470 Nat 

480 £=0 

490 GOTO 970 

500 PRINT “YOU DO NOT WEED A NECK.” 
510 GOTO 970 

520 PRINT "YOU DO NOT HAVE A BODY.” 
530 GOTO 970 

540 PRINT “JsHEAD" 

550 IF N=0 THEN 410 

540 IF H=1 THEN 430 

570 PRINT "YOU NEEDED A HEAD.“ 

580 H=1 

590 C=O 

600 GOTO 970 

610 PRINT “YOU DO NOT HAVE A NECK.” 
620 GOTO 970 

630 PRINT "YOU HAVE A HEAD.” 

640 GOTO 970 

650 PRINT “4=FEELERS” 

660 IF H=0 THEN 740 

670 IF A=2 THEN 720 

680 PRINT “I OW GIVE YOU 4 FEELER“ 
690 AEA+ 

700 CxO 

710 GOTa 970 

720 PRINT "YOU HAVE THO FEELERS ALREADY." 
730 GOTO 970 

740 PRINT "YOU DO NOT HAVE A HEAD." 
750 GOTO 970 

760 PRINT “S=TAIL“ 

770 IF B=0 THEN 30 

780 IF T=1 THEN 950 

790 PRINT “I NOU GIVE YOU A TAIL.” 
a00 T=T+1 

810 C20 

820 GOTO 970 

830 PRINT "YOU DO NOT HAVE A BoDy." 
840 GOTO 970 

850 PRINT “YOU ALREADY HAVE A TAIL." 
860 GOTO 970 

870 PRINT “6=LEG" 

860 IF L=é THEN 940 

890 IF B=0 THEN 960 

900 L=L+1 

910 CxO 


920 

930 

940 

950 

760 

970 

980 

9790 

1000 
1046 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1140 
1140 
1190 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1370 
1580 
1570 
1600 
1610 
1620 
1630 


PRINT “YOU NOW HAVE "3L;" LEGS." 
GOTO 970 

PRINT “YOU HAVE 4 FEET ALREADY." 
GOTO 970 

PRINT “YOU DO NOT HAVE A BODY." 
XsINT(G@RND( 141) 

PRINT "I ROLLED A";X 


1640 GOTO 14670 

1650 PRINT “YOUR BUG IS FINISHED." 
1660 Y=Y¥+1 

1670 IF S=2 AND P=1 AND V=é THEN 146970 
1680 GOTO 1710 

1670 PRINT “HY BUG IS FINISHED." 
1700 Y=¥+2 

1710 IF C=1 THEN 300 

1720 PRINT "DO YOU WANT THE PICTURES"; 
1730 INPUT Z$ 

1740 IF 2$="NO" THEN 300 

1750 PRINT “eeeeeYOUR BUGs+944" 
1760 PRINT 

1770 PRINT 

1780 IF A=0 THEN 1840 

1790 FOR Z=1 TO 4 

1800 FOR X=1 TO A 

1810 PRINT TAB(10); 

1820 PRINT “A "> 

1830 NEXT X 

1840 PRINT 

1850 NEXT Z 

1860 IF H=0 THEN 1880 

1870 GOSUB 2470 

1880 IF N=O THEN 1920 

1890 FOR Z=1 Td 2 

1900 PRINT " N ONY 


ON X GOTO 1000,1080,11970,1300,1410,15201910 NEXT Z 


PRINT “1=BODY" 

IF P={ THEN 1060 

PRINT “I NOW HAVE A BODY." 
Ceo 

P= 

GOTO 1630 

PRINT "I DO NOT NEED A BODY.” 
6070 1630 

PRINT “2=NECK" 

IF O=1 THEN 1150 

IF P=0 THEN 1170 


PRINT “I NOW HAVE A NECK." 
a1 

C=0 

GOTO 1630 


PRINT “I DO NOT NEED A NECK.“ 
GOTO 1630 

PRINT "I DO ROT HAVE A BODY." 
GOTO 1630 

PRINT "SsHEAD® 

IF 020 THEN 1260 

IF R=i THEN 1280 

PRINT “I NEEDED A HEAD." 

Rat 

c=0 

GOTO 1630 

PRINT "I DO NOT HAVE A HECK." 
GOTO 1630 

PRINT "I DO NOT NEED A HEAD.” 
GOTO 1630 

PRINT "“4=FEELERS" 

IF R=0 THEN 1390 

IF 322 THEN 1370 

PRINT “I GET A FEELER." 

S=S+ 

C=0 

GOTO 1630 

PRINT “I HAVE 2 FEELERS ALREADY." 
GOTO 1630 

PRINT “I DO NOT HAVE A HEAD." 
GOTO 1430 

PRINT "S=TAaIL® 

IF P=0 THEN 1480 

IF U=t THEN 1500 

PRINT “I NOW HAVE A TAIL." 
UF 

C=0 

GOTO 1430 

PRINT "I DO NOT HAVE A BODY." 
GOTO 1430 

PRINT "I DO NOT NEED A TAIL." 
GOTO 1430 

PRINT "6=LEGS" 

IF V36 THEN 15970 

IF P=0 THEN 1610 

VeU+1 

C=0 

PRINT "I NOU HAVE"? V3 "LEGS." 
GOTO 1630 

PRINT, “I HAVE 6 FEET." 

GOTO 1630 

PRINT “I DO NOT HAVE A BODY." 
60TO 1430 

IF A2 AND T=1 AND L=6é THEN 1650 
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1920 IF B=Q THEN 2000 


1930 PRINT " BEBBBHBBBBBE" 
1940 FOR Z=1 TO 2 

1950 PRINT “ B B" 
1960 NEXT Z 

1970 IF T<>1 THEN 1990 

1960 PRINT “TYTTTD B" 
1990 PRINT ° BBBBBBBBEBDB" 


2000 IF L=0 THEN 2080 
2010 FOR Z=t TO 2 

2020 PRINT TAB(S)3 

2030 FOR X=! 10 L 

2040 PRINT " L"3 

2050 NEXT X 

2060 PRINT 

2070 EXT Z 

2080 FOR Z=1 10 4 

2090 PRINT 

2100 NEXT Z 

2110 PRINT “#eeessHy BUGHeese4" 
2120 PRINT 

2130 PRINT 

2140 PRINT 

2150 IF S=0 THEN 2230 

2160 FOR Z=1 10 4 

2170 PRINT TAB(10)3 

2180 FOR X=1 10 § 

2190 PRINT °F "5 

2200 NEXT X 

2210 PRINT 

2220 NEXT Z 

2230 IF RO>1 THEN 2250 

2240 GOSUB 2470 

2250 IF Q=0 THEN 2280 

2260 PRINT * NY 
2270, PRINT * NON” 
2280 IF P=0 THEN 2360 

2290 PRINT * BBBBBBBBBBBB" 
2300 FOR Z=1 10 2 

2310 PRINT “ B Be 
2320 NEXT Z 

2330 IF UC>t THEN 2350 

2340 PRINT “TTTTTB BY 
2350 PRINT * BBBBBBBBBBBB" 
2360 IF V=0 THEN 2450 

2370 FOR Z=1 TO 2 

2380 PRINT TAB(5)3 

2390 FOR X=1 10 V 

2400 PRINT “ U"3 

2410 NEXT X 

2420 PRINT 

2430 NEXT Z 

2450 IF Y<>0 THEN 2540 

2460 GOTO 30 


2470 PRINT “ HHHHHHH" 
2480 PRINT " H HY 
2490 PRINT * Ho OH" 
2500 PRINT “ H Hw" 
2510 PRINT “ HOV HY 
2520 PRINT “ HHHHHHH" 


2530 RETURN 
2540 PRINT “I HOPE YOU ENJOYED THE GAHE, 
2550 END 


PLAY IT AGAIN SOONT!" 


Bullfight 


In this simulated bullfight, you are 
the matador — i.e., the one with the 
principal role.and the one who must kill 
the bull or be killed (or run from the 
ring). 

On each pass of the bull, you may try: 

0 Veronica (dangerous inside move 

of the cape) 

1 Less dangerous outside move of 

the cape 

2 Ordinary swirl of the cape 
Or you may try to kill the bull: 

4 Over the horns 

5 In the chest 

The crowd will determine what 
award you deserve, posthumously if 
necessary. The braver you are, the 
better the award you receive. It’s nice to 
stay alive too. The better the job the 
picadores and toreadores do, the 
better your chances. 

David Sweet of Dartmouth wrote the 
original version of this program. It was 
then modified by students at Lexington 
High School and finally by Steve North 
of Creative Computing. 


BULL 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DO YOU WANT INSTRUCTIONS? YES 
HELLO, ALL YOU BLOODLOVERS AND AFICIONABOS 
HERE 18 YOUR BIG CHANCE TO KILL A BULL 


ON EACH PASS QF THE BULL, YOU HAY TRY 

Q - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE) 
1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE 

2 ~ ORDINARY SWIRL OF THE CAPE 


INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL 
ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST) 
BUT IF I WERE Yeu, 

I WOULDN’T TRY IT BEFORE THE SEVENTH Pass. 


THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE 
POSTHUMOUSLY IF NECESSARY 
THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECEIVE 


THE BETTER A JOB THE PICADORES AND TOREADORES bd, 
THE BETTER YOUR CHANCES ARE 


YOU HAVE DRAWN A POOR BULL. 


THE PICADORES DID A AWFUL JOB. 
2 OF THE HORSES OF THE PICADORES KILLED. 
1 OF THE PICADORES KILLED. 


THE TOREADORES DID A AWFUL JOB. 
2 OF THE TOREADORES KILLED. 
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Pass 


THE BULL IS CHARGING AT YOU! 


NUMBER 1 


YOU ARE 


DO YOU WANT TO KILL THE BULL? NO 
WHAT HOVE DO YOU HAKE WITH THE CAPE? 0 


PASS 


THE BULL 15 CHARGING AT YOU! 


NUMBER 2 


YOU ARE 


DO YOU WANT TO KILL THE BULL? NO 


WHAT HOVE DO YOU HAKE WITH THE CAPE? 1 


PASS 
HERE 
CAPE 


Pass 
HERE 
CAPE 


Pass 
HERE 
CAPE 


Pass 
HERE 
CAPE 


Pass 
HERE 
CAPE 


PASS 
HERE 


NUMBER 3 
COMES THE BULL. 
HOVE? 1 


NUNBER 4 
COMES THE BULL. 
HOVE? 0 


NUMBER 5 
COHES THE BULL. 
HOVE? 2 


NUMBER 6 
COMES THE BULL, 
HOVE? 1 


NUMBER 7 
COHES THE BULL. 
HOVE? 0 


NUMBER 8 
COMES THE BULL. 


TRY FOR A KILL? 


TRY FOR A KILL? 


TRY FOR A KILL? 


TRY FOR A KILL? 


TRY FOR A KILL? 


TRY FOR A KILL? 


TT 18 THE MOMENT OF TRUTH. 
HOW DO YOU TRY. TO KILL THE BULL? 5 


THE BULL HAS GORED You 


you a 


THE C 
OWE E 


ADlOS 


RE BEAD 


ROWD AWARDS YOU 
AR OF THE BULL 


DO YOU WANT INSTRUCTIONS? NO 


YOU HAVE DRAWN A SUPERB BULL. 
LUCK, YOUCLL NEED IT. 


Goob 


THE PICADORES DID A SUPERB JOB. 


THE TOREADORES DID A SUPERB JOB. 


Pass 


NUMBER 1 


THE HATADOR-- 


THE MATADOR-- 


ng 


THE BULL IS CHARGING AT YOU! YOU ARE THE NATADOR-- 
DO YOU WANT TO KILL THE BULL? NO 

WHAT HOVE BO YOU HAKE WITH THE CAPE? 2 

THE BULL HAS GORED You 


You A 


THE C 
OWE E 


AdIOS 


RE DEAD 


ROWD AWARDS YOU 
AR OF THE BULL 


JO PRINT TABC34); “BULL” 
20 PRINT TABCTS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 DEF FNACK)=INT(RND(1) #241) 


200 
202 
205 
206 
207 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
430 
455 
460 
463 
467 
470 
4970 
300 
510 
520 
530 
340 
590 
340 
570 
370 
S95 
600 
6to 
630 
65 
640 
650 
660 
470 
680 
690 
700 
710 
720 
730 
735 
740 
730 
740 
770 
780 
785 
790 
800 
810 
820 
830 
840 
850 
840 
970 
880 
870 
900 
Ft0 


920, 


930 
940 
9750 
960 
970 
780 
990 


PRINTSPRINT:PRINT 

L=1 

PRINT "DO YOU WANT INSTRUCTIONS"; 

INPUT Z$ 

IF Z$="NO" THEN 400 

PRINT "HELLO, ALL YOU BLOOBLOVERS AND AFICIONADOS" 
PRINT "HERE IS YOUR BIG CHANCE TO KILL A BULL" 
PRINT 

PRINT "ON EACH PASS OF THE BULL, YOU MAY TRY" 

PRINT "Q ~ VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)" 
PRINT “1 ~ LESS DANGEROUS OUTSIDE HOVE OF THE CAPE" 
PRENT "2 ~ ORDINARY SWIRL OF THE CAPE" 

PRINT 

PRINT “INSTEAD OF THE ABOVE, YOU HAY TRY TO KILL THE BULL“ 
PRINT "ON ANY TURN: 4 (QVER THE HORNS), S CIN THE CHEST)" 
PRINT "BUT IF I WERE You,” 

PRINT "I WOULBN‘T TRY IT BEFORE THE SEVENTH Pass." 
PRINT 

PRINT "THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE" 
PRINT "POSTHUMOUSLY IF NECESSARY* 

PRINT “THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECEIVE" 
PRINT 

PRINT “THE BETTER A JOB THE PICADORES AND TOREADORES BO," 
PRINT “THE BETTER YOUR CHANCES ARE” 

PRINT 

PRINT 

B(S)=1 

D(a) =1 

DIM L$t5) 

AZINTCRND(1) #541) 

FOR I=! 709 

READ L$(1) 

NEXT I 

DATA “SUPERB","GOOD", "FAIR", “POOR”, “AWFUL” 

PRINT "YOU HAVE DRAUN A "3L$(A);" BULL.” 

IF AD4 THEN 530 

IF AX2 THEN 550 

GOTO 570 

PRINT “YGU“RE LUCKY." 

GOTO 570 

PRINT “GOOD LUCK. YOULL NEED IT." 

PRINT 

PRINT 

as="PICADO® 

B$="RES" 

GOSUB 1610 

D(tdsC 

A$="TOREAD" 

BS="QRES" 

GOSUB 1610 

DE(Q)=€ 

PRINT 

PRINT 

IF Z=1 THEN 1310 

D(Sd=DC3) +4 

PRINT “PASS NUMBER" ;D(3) 

IF DC3)<3 THEN 760 

PRINT “HERE COMES THE BULL. TRY FOR @ KILL"; 

GOSUB 1930 

TF 7121 THEN 1130 

PRINT “CAPE MOVE"; 

GOTO 800 

PRINT "THE BULL IG CHARGING AT YOU! YOU ARE THE MATADOR-~-" 
PRINT "DO YOU WANT TO KILL THE BULL"; 

GOSUB 1930 

IF Z1=1 THEN 1130 

PRINT “WHAT HOVE DO YOU MAKE WITH THE CAPE"; 

INPUT E 

IF EXDINTCABS(E)) THEN 830 

IF E<3 THEN 850 

PRINT "DON’T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUNBER* 
GOTO 800 

REM 

TF £=0 THEN 720 

IF E=1 THEN 700 

Ae.5 

GOTO 730 

H=2 

GOTO 730 

Keg 

LaLen 

F=(6-A+H/10)*RND(1)/((D(1)4D(2)4D(3)/10) 45) 

IF F<.5t THEN 640 

PRINT “THE BULL HAS GORED YOU" 

ON FNACO) GOTO 780,1010 

PRINT "YOU ARE DEAD“ 

B(4)=t.§ 


1000 GOTO 1310 


1010 
1020 
1030 
1035 
1040 
1050 
1060 
1070 
1080 
1070 
1100 
1110 
1120 
1130 
1140 
1150 
1155 
1160 
1170 
1180 
1190 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1370 
1395 
1400 
1410 
1420 
1490 
1440 
1450 
1460 
1470 
1480 
1500 
1510 
1520 
1530 
1540 
1550 
15460 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1470 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1840 
1870 
1880 
18970 
1900 
19710 


PRINT "YOU ARE STILL ALIVE" 

PRINT "DO YOU RUN FROM THE RING"; 

GOSUB 1930 

IF Z1=2 THEN 1070 

PRINT "COWARD" 

B(4)=0 

GOTO 1310 

PRINT "YOU ARE BRAVE. STUPID, BUT BRAVE." 
ON FNACO) GOTO 1090,1110 

B(a)=2 

GOTO 460 

PRINT “YOU ARE GORED AGAIN” 

GOTO 970 

REK 

ze 

PRINT "IT 1S THE HOMENT OF TRUTH." 

PRINT "HOW DO YOU TRY TO KILL THE BULL"; 
INPUT H 

IF H=4 THEN 1230 

IF H=5 THEN 1230 

PRINT “YOU PANICKED. THE BULL GORED You." 
GOTO 970 


KeCO-A)*LO#RNDC1)/( (DCE) +062) )#54D(3)) 
IF J=4 THEN 1290 

IF K>.2 THEN 940 

PRINT “YOU KILLED THE BULL” 
B(S)=2 

GOTO 1320 

IF K>.8 THEN 960 

GOTO 1260 

PRINT 

PRINT 

PRINT 

IF D(4)<>0 THEN 1390 


PRINT “THE CROWD BOOS FOR TEN MINUTES. IF YOU EVER DARE TO SHOW" 
PRINT "YOUR FACE IN A RING AGAIN, THEY SWEAR THEY WILL KILL YOU--" 
PRINT "UNLES THE BULL DOES FIRST.” 

GOT@ 1580 

DEF FNC(Q)=FND(Q)4RND(1) 

DEF FNDCQ)= (4.546 /6-(0C1)+D(2) )#2.544eD (4) 4240(5)-D(3) 2/1208) 
IF D(4)<>2 THEN 1430 

PRINT “THE CROWD CHEERS WILDLY" 

GOTO 1450 

IF D(S)<>2 THER 1450 

PRINT "THE CROWD CHEERS" 

PRINT "THE CROWD AWUARDS YOU" 

IF FNC(Q)<2.4 THEN 1570 

IF FNC(Q)<4.9 THEN 1550 

IF FNC(Q)<7.4 THEN 1520 

PRINT “OLE! YOU ARE “NUY HOMBRE‘!! OLE! OLE!" 

GOTO 1580 

PRINT “BOTH EARS OF THE BULL" 

PRINT “OLE!” 

60TO 1580 

PRINT “ONE EAR OF THE BULL” 

GOTO 1580 

PRINT "HOTHING AT ALL" 

PRINT 

PRINT “ADIOS" 

GOTO 2030 

B=3/ASRND(1) 

If BC.37 THEN 1740 

IF B.S THEN 1720 


IF B<.63 THEN 1700 1920 REM 

IF B<.87 THEN 1680 1930 INPUT AS 

C=.1 1940 IF AS="YES" THEN 1990 
GOTO 1750 1950 IF AS="NO" THEN 2010 
C=.2 1970 PRINT “INCORRECT ANSWER ~ - PLEASE fYPE “YES” OR “NU’." 
6010 1750 1780 GOTO 1930 

c=.J 1790 Zizi 

GOTO 1750 2000 GOTO 2020 

C=.4 2010 21=2 

6010 1750 2020 RETURN 

Ce.5 2030 END 

T=INT(10#C+.2) 


PRINT “THE "ZAS;BS;" DID A “GLS(T);" JOB." 

IF 4>7 THEN 1900 

IF 35T THEN 1870 

ON FNA(K) GOTO 1830,1850 

IF AS="TOREAD" THEN 1820 

PRINT "ONE OF THE HORSES OF THE “;A$;B9;" WAS KILLED." 
OF FNA(K) GOTO 1830,1850 

PRINT “GNE OF THE ";A$;8$;" WAS KILLED.* 

GOTO 1700 

PRINT "NO “;A$;BS;" WERE KILLED." 

GOTO 1900 

IF AS="TOREAD" THEN 1890 

PRINT FNACK);"OF THE HORSES OF THE “;A$;B9;" KILLED." 
PRINT FRACK);°OF THE ";A$;B$;" KILLED." 

PRINT 

RETURN 
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Bullseye 


In this game, up to 20 players throw 
darts at a target with 10-, 20-, 30-, and 


40-point zones. The objective is to get tl( 
200 points. 
You have a choice of three methods 
of throwing: ‘ot 
Throw Description Probable Score 
1 Fast overarm Bullseye or complete miss 
9 : 
; ogtoiled overarm Ne ree or 30 points ROUND 6 DARTH’S THROU? 2 
erar nything , , WHEW! 10 POINTS. 
You will find after playing a while that a POINT ate! ' TOTAL SCORE = 50 
different players will swear by different TOTAL SCORE = 120 ROUND ¢ 
strategies. However, consider the ex- 
pected score per throw by always using DARTH“S THROW? 2 STEVE’S THROU? 2 
Throw 3 (program line 220): WHEUT 10 POINTS. 20-POINT ZONE 
TOTAL SCORE = 40 TOTAL SCORE = 190 
Score (S) Probability (P) SxP ROUND 7 DARTH’S THROU? 1 
40 1.00-.95 = .05 2 MISSED THE TARGET! 100 BaD. 
30 95-.75 = .20 6 STEVE*S THROW? 2 TOTAL SCORE = 50 
30 75-.45 = 30 6 ane 
75-.45 =. TOTAL SCORE = 130 ROUND 10 
10 .45-.05 = .40 4 
0 .05-.00 = .05 0 DARTH’S THROW? 3 STEVE’S THROU? 2 
— MISSED THE TARGET! TOO BAD. 20-POINT ZONE 
Expected score per throw = 18 TOTAL SCORE = 40 TOTAL SCORE = 210 
Calculate the expected scores for the ROUND @ peers teat 
° SED THE TARGET! 100 BAD. 
other throws and you may be sur STEVE’S THROU? 1 TOTAL SCORE = 50 
prised! BULLSEYE!! 40 POINTS! 
The program was written by David TOTAL SCORE = 170 WE HAVE A WINNERI! 
Ahl of Creative Computing. 
STEVE SCORED 210 POINTS. 
BULLSEYE - THANKS FOR THE GAME. 


CREATIVE COMPUTING MORRISTOWN, NEN JERSEY 
53 PRINT TAB(32); "BULLSEYE" 


IN THIS GAME, UP TO 20 PLAYERS THRGW DARTS AT A TARGET 10 PRINT TAB(15);"CREATIVE COWPUTING MORRISTOWN, NEW JERSEY" 
WITH 10, 20, 30, AND 40 POINT ZONES. THE OBJECTIVE IS 20 PRINTSPRINTSPRINT 
10 GET 200 POINTS. 30 PRINT “IN THIS GAHE, UP TO 20 PLAYERS THROW DARTS AT A TARGET” 
40 PRINT “WITH 10, 20, 30, AND 40 POINT ZONES. THE OBJECTIVE 15" 
THROW DESCRIPTION PROBABLE SCORE 50 PRINT "TO GET 200 POINTS.": PRINT 
1 FAST OVERARK BULLSEYE OR COMPLETE HISS 60 PRINT "THROW", TAB(20)3 “DESCRIPTION; TAB(4S) "PROBABLE SCORE" 
2 CONTROLLED OVERARK 10, 20 OR 30 POINTS 70 PRINT” 1"sTAB(20)¢°FAST OVERARN;TAB(45)3 "BULLSEYE OR COMPLETE MISS” 
3 UNDERARK ANYTHING GO PRINT” 2"2TAB(20); "CONTROLLED OVERARN";TAB(45);"10, 20 OR 30 POINTS" 
90 PRINT" 3°: TAB(20)3 "UNDERARH®s TAB(45) | "ANYTHING" :PRINT 
HOW MANY PLAYERS? 2 STEVE’S THROW? j 100 DIM A$(20),5(20),WC10)s M=O: R=0: FOR 1=1 T0 20: S(E)=0: NEXT I 
20-POINT ZONE 110 INPUT “HOU MANY PLAYERS":Ns PRINT 
NAHE OF PLAYER # 1 ? STEVE TOTAL SCORE = 50 120 FOR I=1 TOW 
NANE OF PLAYER # 2 7 DARTH 130 PRINT “NAHE OF PLAYER W"SI;:INPUT AS(T) 
DARTH’S THROW? 1 140 NEXT I 
ROUND 1 MISSED THE TARGETi 100 BAD. {50 RER+1: PRINT: PRINT "ROUND “:R 
TOTAL SCORE = 10 160 FOR I=t TON 
STEVE’S THROW? 1 170 PRINT: PRINT AS(I)"°S THROU" 3: INPUT T 
JO-POINT ZONE! ROUND 4 180 IF T<O OR T>3 THEN PRINT "INPUT 1, 2, OR 31": GOTO 170 
TOTAL SCORE = 30 ; 190 ON T GOTO 200, 210, 200 
STEVE’S THROU? 2 200 P1=.65: P2=.59: PJ=.5: PA=.5: GOTO 230 
DARTH’S THROW? 2 MISSED THE TARGET! 100 BAD. 210 Pl=.99: P2=.772 P¥=.4d: P4=.01s GOTO 230 
WHEW! 10 POINTS. TOTAL SCORE = 50 220 PIs.95: P25.752 P3=.452 P4=.05 
TOTAL SCORE = 10 230 U=RND(1) 
DARTH’S THROW? 2 240 IF U>=P1 THEN PRINT “BULLSEYE!! 40 POINTS!"sB=40: GOTO 290 
ROUND 2 20-POINT ZONE 250 IF U>=P2 THEN PRINT “3O-POINT ZONE!":B=30: GOTO 290 
TOTAL SCORE = 30 260 IF U>=P3 THEN PRINT “20-POINT ZONE":B=20: GOTO 290 
STEVE’S THROW? 3 270 IF U>=P4 THEN PRINT “WHEW! 10 POINTS.":B=10: GOTO 290 
MISSED THE TARGET! TOO BAD. ROUND 5 280 PRINT "HISSED THE TARGET! TOO BAD.”: B=0 
TOTAL SCORE = 30 290 S(1)=S(1)+B: PRINT "TOTAL SCORE ="3S¢1): NEXT 1 
STEVE*S THROW? 1 300 FOR Iet TON 
DARTH‘S THROW? 1 BULLSEYE!! 40 PQINTS! FiO IF S¢E)>=200 THEN HeM+!s U(M=I 
MISSED THE TARGET! TOO BAD. TOTAL SCORE = 90 320 NEXT I 
TOTAL SCORE = 10 330 IF K=O THEN 150 
DARTH’S THROU? | 340 PRINT: PRINT “WE HAVE A WINNER! !“: PRINT 
ROUND 3 MISSED THE TARGET! 00 BAD. 350 FOR T=1 TO Ms PRINT ASCUCI))S" SCORED"3S(UCI)) "POINTS. ": NEXT 1 
TOTAL SCORE = 30 360 PRINT: PRINT “THANKS FOR THE GAME.": END 
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Bunny 


BUNNY 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


uN 
BUN BUNNY 
BUNNY NYBUNNYBUN 
BUNNY BUN UNNYBUNHYBUN 
UNNYBUNNY NRYBUNNY BUNNYB 
ANYBUNNYBU UNNY BUNNY BUNNYB 
NYBUNNY BUNN YBUNNY BUNNY BUNY 
YBUNRYBURNY NNY BUNNY BUNNY BUNH 
BUNNY BUNNY UNHY BUNNY BUNNY BUN 
uuNYBUNNYBU BUNNY BUNNY BUNNYB 10 PRINT TAB(33)5 "BUNNY" 
NNYBUNNYBUN YBUNNY BUNNY BUNNY 20 PRINT TABCTS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 
NYBUNNY BUNNY NYBUNNY BUNNY BUNN 30 PRINT: PRINT: PRINT 
YBUNNYBUNNYB NNYBUNNY BUNNY BU 100 REM “BUNNY” FROM AHL“S “BASIC COMPUTER GANES? 
BUNNYBURNYBU © UNNYBUNNYBUNNYB 110 REN 
UNNYBUNNYBUN BUNNY BUNNY BUNN 120 FOR I=0 TO 4: READ BAL): NEXT I 


NNYBUNNYBUN YBUNNYBUNNYBU 


130 GOSUB 260 
WYBUNNY BUNNY BUNNY BUNNY 


140 L=é4: REM ASCII LETTER CODE... 


YBUNNY BUNNY BUNNY BUNK 150 REH 
BUNHY BUNNY BUNNY BU 160 PRINT 
NHYBUNNYBUNNY , 170 READ X: IF X<O THEN 160 
NYBUNNYBUN 175 IF X>128 THEN 240 
YBURNYBU 180 PRINT TAB(X)3: READ Y 
UNNY BUNNY BUNN 490 FOR [=X TO Ys J=I-5¥#INT(I/5) 
NYBUNNY BUNNY BUNNYB 200 PRINT CHRS(L#B(J))$ 
UNNY BUNNY BUNNY BUNNYBU 210 NEXT I 
BUNNY BUNNY BUNNY BUNNY BUN 220 GOTO 170 
NYBURNY BUNNY BUNNY BUNNY BUNN 230 REM 
RNY BUNNY BUNNY BUNNY BUNNY BUNNY 240 GOSUB 260: GOTO 450 
UNNYBUNN UNNYBUNNYBUNNYBUNNY 250 REN 
BUNNYBUN = UNNYBUNNYBUNNYBUNNYB 260 FOR I=1 TO és PRINT CHRS(10)3: NEXT I 
YBUNNYBUN UNNYBUNNYBUNNYBUNNYB 270 RETURN 
NYBUNNYBUN BUNNYBUNNYBUNNYBUNNYB 280 REM 


NNY BUNNY BUNNY BUNNY BUNNYBUNNY BUNNYB 
UNNY BUNNY BUNNY BUNNY BUNNY BUNNY BUNNYB 
NNYBUNNY BUNNY BUNNY BUNNY BUNNYBUNNY 
NYBUNNY BUNNY BUNNY BUNNYBUNNYBUNNY 


290 DATA 2,21,14,14,25 
300 DATA 1,2,-1,0,2,45,50,-1,0,5,43,52,~1,0,7,41 ,52,-1 
310 DATA 1,9,37,50,~f,2,!1,36,50,-1,3,13,34,49,-1,4,14,32,48,-1 


YBUNHY BUNNY BUNNY BUNNY BUNNY BUNN 320 DATA 5,15,31,47,-1,6,16,50,45,-1,7,17,29,44,-1,8,19,28,43,-1 
330 DATA 9,20,27,41,-t, 10,21 ,26,40,-1,11,22,25,38,-1,12,22,24,36,-1 
UNNY BUNNY BUNNY BUNNY BUNHYBUNN 
FAO DATA 13,34,-1,14,33,-1,15,31,-1,17,29,-1, 18,2751 
BUNNY BUNNYBUNNYBUNNYBUN Y 
YBUN YBUNNYB NYBU B 450 DATA 19,26)-1, 16,28 y-f 5 13,30,-1,11,31,-1,10,32,-1 
BUNNY NYBUNNYB y 360 DATA 8,33,-1,7)34,-1,6,13,16,54,-1,5,12,16,35,-1 
370 DATA 4,12,16,35,~1 3,12, 15, 35)~1 2,355,191) 35,-1 
NYRUNN u NYDN wyBUN 380 DATA 2,34,-1,3,34,-1,4,33)1,6,33)~1,10,32,34,34,-4 
ANYBUNNYBUNNYBUNNY UNW 390 DATA 14,17,19,25,28,31,35,35,-1,15, 19) 23,30, 36,36, -1 
uk ORY YBURNYBU 400 DATA 14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1 
BH WHoYY 410 DATA 12,27,31,33,-1, 11,139,172, 17519, 19,22,22,24, 314-1 
NN UNNY 420 DATA 10,11,17,18,22,22,24,24,29,29,-1 
NAY 430 DATA 22,23, 26,29,-1,27, 2%) 71 ,28)29,-1, 4096 
440 REM 
NY 
450 END 
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Buzzword 


This program is an invaluable aid for 
preparing speeches and_ briefings 
about educational technology. This 
buzzword generator provides sets of 
three highly-acceptable words to work 
into your material. Your audience will 
never know that the phrases don't 
really mean much of anything because 
they sound so great! Full instructions 
for running are given in the program. 

This version of Buzzword was written 
by David Ahl. 


BUZZWORD GENERATOR 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


THIS PROGRAK PRINTS HIGHLY ACCEPTABLE PHRASES IN 


“EDUCATOR-SPEAK“THAT YOU CAN WORK INTO REPORTS 


AND SPEECHES, WHENEVER A QUESTION MARK IS PRINTED, 


TYPE A “Y’ FOR ANOTHER PHRASE OR “N’ TO QUIT. 
HERE’S THE FIRST PHRASE: 
ABILITY VERTICAL AGE PERFORMANCE 


TY 
DIFFERENTIATED CREATIVE FACILITY 


ry 
MANIPULATIVE LEARNING ENVIRONHENT 


ay 
ABILITY CREATIVE GROUPING 


zy 

TAVISTOCK NON-GRADED REINFORCEMENT 
TY 

MODULAR MOTIVATIONAL FACILITY 

TY 

TAVISTOCK HUMANISTIC REINFORCEMENT 
ry 

DISCOVERY MOTIVATIONAL GROUPING 
ry 

HETEROGENEQUS VERTICAL AGE PROCESS 
7Y 

ABILITY LEARNING PROCESS 

ry 

FLEXIBLE TRAINING CORE CURRICULUN 
TN 


COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT! 


10 
20 
30 
40 
50 
60 
70 
a0 
90 
100 
110 
120 
130 
450 
200 
2t0 
220 
230 
240 
250 
260 
270 
280 
290 
999 
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PRINT TAB(26);"BUZZWORD GENERATOR® 

PRINT TAB(IS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
PRINTsPRINT:PRINT 

PRINT "THIS PROGRAM PRINTS HIGHLY ACCEPTABLE PHRASES IN" 
PRINT "“EDUCATOR~SPEAK“THAT YOU CAN WORK INTO REPORTS" 
PRINT "AND SPEECHES. WHENEVER A QUESTION MARK 1S PRINTED,” 
PRINT "TYPE A “Y° FOR ANOTHER PHRASE OR “N* TO QUIT.” 
PRINTSPRINTEPRINT “HERE’S THE FIRST PHRASE:" 

DIM A$(40) 

FOR I=1 TO 3? : READ AS(L) 2 NEXT I 

PRINT ASCINTCTS#RND(T DFT )IS" TE 

PRINT ASCINTCIS#RND( D414) 05" U5 

PRINT ASCINTCES#RND(1)427)) & PRINT 

INPUT Y$ : IF Y$="Y" THEN 110 ELSE GOTO 999 

DATA "ABILITY", "BASAL", "BEHAVIORAL", "CHILD-CENTERED” 

DATA "DIFFERENTIATED", "DISCOVERY", "FLEXIBLE", "HETEROGENEOUS" 
DATA "HOMOGENEOUS", "MANIPULATIVE", "MODULAR", "TAVISTOCK" 
DATA "INDIVIBUALIZED", "LEARNING", "EVALUATIVE", "OBJECTIVE" 
DATA "COGNITIVE", "ENRICHMENT", "SCHEDULING", "HUMANISTIC" 
DATA "INTEGRATED", "NON-GRADED" "TRAINING", "VERTICAL AGE" 
DATA "MOTIVATIONAL", "CREATIVE", "GROUPING", "MODIFICATION" 


DATA "ACCOUNTABILITY", "PROCESS", "CORE CURRICULUN", "ALGORITHM" 


DATA 
DATA 


"PERFORMANCE", "REINFORCEMENT", “OPEN CLASSROOM", "RESOURCE" 
“STRUCTURE, "FACILITY", “ENVIRONMENT” 


PRINT "COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT! "SEND 


Calendar 


This program prints out a calendar 
for any year. You must specify the 
starting day of the week of the year in 
Statement 130. (Sunday (0), Monday 
(-1), Tuesday (-2), etc.). You can deter- 
mine this by using the program WEEK- 
DAY. You must also make two changes 49 57 seeeeseseseseesese HARCH #2eeeeRSbSRRRESEER 506 4F 
for leap years in Statements 360 and 


aa : § r) T u T F § 
620. The program listing describes the 
necessary changes. Running the SORESORSEECERERES ASE NTETEEE CERT EE EERIE SEER HE ET ONE ETT OTEEF 
program produces a nice 12-month 
calendar. ' 2 3 4 
The program was written by Geof- 5 4 7 a 9 10 rf] 

frey Chase of the Abbey, Portsmouth, 
Rhode Island. 12 13 14 15 16 17 18 

19 20 21 22 23 24 25 

26 27 28 29 30 3 


2090 Seeeeeeeeenteeeeee «APRIL Feds e eet ERE EREOEE 275 84 
§ i] T u Tt F § 
PERSCEEESERORESESERESSSNEEEEHESEOE SESH EHSTOEEOEEEEEETES IE CTE 


1 


2 3 4 5 6 7 a 
? 10 "1 12 13 14 15 
_ 16 17 18 9 20 21 22 
CALENDAR 
CREATIVE COMPUTING WORRISTOWN, NEU JERSEY 23 24 25 26 27 28 ° 29 
30 
¥0 0 FdRRESEERESEORSESS JANUARY tebeeeterseseeaees 545 +4 4* 120 seeseeeEeeeeeReED «HAY «| seReasERtEKEESEtEE 245 8 
§ Li) T ] T F § § Li) T W T F Ss 
ROURREHORES SE OSESEEEEEEEESEEEOR EGET EHESTETEOREEE ETI OTT S THOR PECERERRESESEREES SEEDS SENT HEE EES EE OESET099099099009899 0088 
1 2 3 4 5 é ? ' 2 3 4 5 6 
8 9 40 WW 12 1 14 ? 8 9 10 "1 12 13 
45 16 17 18 19 20 21 14 15 16 17 18 19 20 
22 23 24 25 26 27 28 ai 22 23 24 25 26 27 
29 30 au 2a 29 30 uN 
SOT] eeReeaeeeeeeecesee FEBRUARY Seoeeeseseeaeesaes 314 39 OF 15f eeeeseeeseeeeesene «JUNE 49000024e8804080%68 214 49 
§ 4 T u T F § § 4 T W T F § 
irtctititiiiiiiiitiitittlitiitiitrirerTritTitre TTT rst Tet ey FERER TEES GHEE 0888 896858508005 590 50058998858 F 88s OE EEE 
1 2 3 4 1 2 3 
5 é 7 8 9 10 it 4 i] é ? 8 ? 10 
12 13 14 5 16 17 18 11 12 13 14 15 16 17 
9 20 21 22 23 24 25 18 19 20 21 22 23 24 
26 2? 28 25 26 27 28 2? 30 
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98 181 Heeenesesaeeessese «=| JULY FeeeReeeeeeeteRsE 184 48 
8 4 T W T F § 
RECEEEEEOSESEERERREEEEEEESER SESE ESSE ELE EER ELE EREREREES G3 69S 


1 


2 3 4 5 é 7 8 
9 10 WW 12 13 14 15 
16 17 18 19 20 21 22 
23 24 25 26 27 28 29 
30 xE 


40 212 seseceseceseoeaees «AUGUST #2ee400R48 0080430 153 04 
8 nt T W T F S 


PECHSOSRSSSHSESOE SOE SESET ESE SEEKS TER EER ET SAA ESEE TARDE REESE 


1 2 a 4 b) 
é 7 8 9 10 "W 12 
13 14 15 16 1? 18 19 
20 ai 22 23 24 25 26 
27 28 27 30 vu 


HO 24] HaeeeececeseesesesSEPTEMBERSeseneeecareteesae 122 44 
§ i T u T F 8 


HECERTECERESESHREEEEES ETE ORES EERERER TERRES EOE OS ESAS EERE ESS 


1 2 
3 4 5 6 ? 8 9 
10 il 12 13 14 3 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 30 


#0 279 Beeceeseseceeeeses OCTOBER te teeesateseeseone 92 49 
§ 4 T v T F $ 


FREHLETESSORECESSS EE EEEES ESHEETS SES ES ELS DRS EO EEAE ESSERE CEES 


{ 2 3 4 5 é ? 
8 ? io " 12 13 14 
15 16 17 18 9 20 | 
22 23 24 25 26 27 28 
2 30 at 


#0 504 seestaeseeseceseds NOVENBDERVE+FReRRe eS ESHER G1 Fe 
$ tt T W T F § 


PECSESEEEREEEESEETESERSSEESESEE EER ESATESAR ES EERE HERE EEE THEE 


1 2 3 4 
5 é 7 8 ? 10 "1 
12 {3 14 15 16 17 18 
Ww 20 2 22 2g 24 25 
26 27 28 29 30 


40 JJ4 tevecceeaeoececess DECEMBER EKESe eee RREs EES 3] 48 


8 4 T W T F § 


SEFESESSESTEERSSHERSESESESESESES ETERS ETA CEARRE RESET EASE ESE 


i 2 
3 4 5 4 ? 8 ? 
10 | 12 I 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 30 


at 


10 PRINT TAB(32); "CALENDAR" 
20 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINTSPRINT:PRINT 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
alo 
420 
430 
440 
430 
460 
470 
480 
490 
500 
510 
520 
330 
540 
550 
360 
570 
580 
570 
600 
610 
$20 
630 
640 
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REH VALUES FOR 1978 - SEE NOTES 

BIN 412) 

FOR I=1 TO 6: PRINT CHRS(10)3: NEXT I 

D=O: REN 1978 STARTS ON SUNDAY (O=SUN, ~1=HON, ~2=TUES...) 
$=0 

REH READ DAYS OF EACH HONTH 

FOR N= TO #2: READ M(N)s NEXT N 

REK 

FOR N=1 TO 12 

PRINT: PRINT: S=S+H(N-1) 

PRINT “#e°sS°TAB(7)¢ 

FOR I=1 TO 18: PRINT "#33 NEXT I 

OH H GOTO 230,240,250, 260,270, 280,290, 300,310,320,330,340 
PRINT " JANUARY “ss GOTO 350 

PRINT “ FEBRUARY"; GOTO 350 

PRINT “ HARCH “js GOTO 350 


re 
PRINT “ APRIL “3: GOTO 350 
PRINT * HAY “5: GOTO 350 
PRINT “ JUNE “5: GOTO 350 
PRINT * JULY “33 GOTO 350 
PRINT " AUGUST “;: GOTO 350 
PRINT "SEPTEMBER’;: GOTO 350 
PRINT “ OCTOBER "33 GOTO 350 


PRINT “ NOVEMBER": GOTO 350 
PRINT “ DECEHBER"; 

FOR I=1 TO 18: PRINT “#3: NEXT 1 
PRINT 345-S3 "a0": 

REN  366-S$ ON LEAP YEARS 
PRINT CHR$(10): PRINT * s N T w"; 
PRINT ° T F 5" 
PRINT 

FOR I=1 TD 59: PRINT “#3: NEXT 1 
REK 

FOR Us1 TO 6 

PRINT CHRS(10) 

PRINT TAB(A) 

REK 

FOR G=1 10 7 

Dept! 

D2#D-S 

IF D2>M(N) THEN 580 

IF D2>0 THEN PRINT D2; 

PRINT TAB(4+88G); 

NEXT 6 

REH 

IF D2=N(N) THEN 590 

NEXT U 

REW 

D=D-6 

EXT N 

REH 

FOR I=1 TO 6: PRINT CHRO(10)3: NEXT I 
DATA 0,31,28,31,30,31,30,31,31,30,31,30,31 
REM 0,31,29, vec, ON LEAP YEARS 
ERD 


In this program, the computer 
pretends it is the cashier at your 
friendly neighborhood candy store. 
You tell it the cost of the item(s) you are 
buying, the amount of your payment, 
and it will automatically (!) determine 
your correct change. Aren’t machines 
wonderful? Dennis Lunder of People’s 
Computer Company wrote this 
program. 


CHANGE 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 


1, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE 
THE CORRECT CHANGE FOR ITENS COSTING UP TO $100. 


COST OF ITEN? 80.80 
ANOUNT OF PAYMENT? 100 
YOUR CHANGE, $ 19.20 

1 TEN DOLLAR BILL(S) 

{ FIVE DOLLARS BILL{S) 

4 OWE DOLLAR BILL(S) 

1 DIME(S> 

1 WICKEL(S) 

5 PENNY(S) 
THANK YOU, CONE AGAIN. 


COST OF ITEM? .19 
AMOUNT OF PAYNENT? 1.00 
YOUR CHANGE, $ .81 

1 ONE HALF DOLLAR(S) 

1 QUARTER(S) 

1 NICKEL(S) 

1 PEWNY(S> 
THANK YOU, CONE AGAIN. 


COST OF ITEM? 1.01 
AMOUNT OF PAYMENT? 5 
YOUR CHANGE, $ 3.99 
3 ONE DOLLAR BILL(S) 
1 ONE HALF BOLLAR(S) 
1 QUARTER(S) 
2 DIKECS) 
4 PENNY(S) 
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PRINT TAB(33); "CHANGE" 


PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


2 

4 

S PRINTSPRINTSPRINT 

6 PRINT “I, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE" 
8 

9 


PRINT “THE CORRECT CHANGE FOR ITEKS COSTING UP TO $100." 


PRINTSPRINT 


10 PRINT “COST OF ITEM"; cINPUT ASPRINT “ANGUNT OF PAYHENT";: INPUT P 


20 C=P-ASMECSIF £60 THEN 90 

25 PRINT “CORRECT AMOUNT, THANK You." 
40 GOTO 10 

90 IF €>0 THEN 120 

95 PRINT “SORRY, YOU HAVE SHORT-CHANGED ME $"sA-P 
100 GOTO 10 

120 PRINT “YOUR CHANGE, $"3C 

130 D=INT(C/10) 

140 IF D=0 THEN 155 

150 PRINT Dj"TEN DOLLAR BILL(S)" 
155 C=H-(Det0) 

160 E=INT(C/5) 

170 IF E=0 THEN 185 

180 PRINT E;"FIVE DOLLARS BILLIS)” 
185 C=ti-(De10+Ee5) 

190 F=INT(C) 

200 IF F20 THEN 215 

210 PRINT F;"ONE DOLLAR BILL(S)° 
215 C=M~(DeLO+EeS+F) 

220 C=C#100 

225 NEC 

230 G=INT(C/50) 

240 IF G=0 THEN 255 

250 PRINT G;"ONE HALF DOLLAR(S)" 
255 C=N~(6#50) 

260 H=INT(C/25) 

270 IF H=0 THEN 285 

280 PRINT H;"QUARTER(S)* 

285 CaN~(Ge50+H*25) 

290 T=INT(C/10) 

300 IF I=0 THEN 315 

310 PRINT I; “DINE(S)" 

315 CW (6e50+H82541410) 

320 JEINT(C/§) 

330 IF J=0 THEN 345 

340 PRINT J; "NICKEL (S)" 

345 CoN-(64504H0254 14104095) 

350 K=INT(C+.5) 

360 IF K=0 THEN 380 

370 PRINT K;"PENNY(5)" 

380 PRINT “THANK YOU, COHE AGAIN." 
390 PRINTSPRINT 

400 GOTO 10 

40 END 


Checkers 


SS rom 2,2 FROKT 4,0 
10? 3,1 


Te? 3,3 
Fron 6101 5 FRONO 4102 2704 0 

This program plays checkers. The 
pieces played by the computer are marked » X& «© XX 2. ww kX rs es or nr 
with an “X”, yours are marked “O”. A 
move is made by specifying the coordi- sn He i 
nates of the piece to be moved (X, Y). . ok ow Xe Xe x x x 
Home (0,0) is in the bottom left and X “oe . , 
specifies distance to the right of home (i.e., i ye ee 
column) and Y specifies distance above ee 0 
home (i.e., row). You then specify where “oe “Net 
you wish to move to. Oo . .« . 0 . @ . rs en 

The original version of the program by 0 0 0 0 
Alan Segal was not able to recognize (or . ‘ . . 5 Ge ee Be 
permit) a double or triple jump. if you tried o . @0 . Oo . @ . 0 . 0 . Xe . 8 YY 
one, it was likely that your piece would dis- eROMT 0,2 
appear altogether! oe 

Steve North of Creative Computing Ron) ATO? 2 TO 5a 
rectified this problem and Lawrence FRON4 07106 2104 4702 2 
Neal contributed modifications to 
allow the program to tell which player a x x 
has won the game. The computer does rr es re oe , , 7 Re 
not play a particularly good game but re rs cr ae 
we leave it to you to improve that. ~ xX 2. kX 2. xX 2. , ' 

CHECKERS See ee 7 
CREATIVE COMPUTING HORRISTOUN, NEW JERSEY a 
. oO . . 

THIS 19 THE GAME OF CHECKERS. THE COMPUTER IS X, ee ee ee ee ms 
AND YOU ARE OQ. THE COMPUTER WILL HOVE FIRST. 


SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM. 
(0,0) IS THE LOWER LEFT CORNER . 


. Q . . . . . Q 
(0,7) IS THE UPPER LEFT CORNER 


(7,0) 18 THE LOWER RIGHT CORNER O + 8 2 GO + OU Pr rr 

(7,7) IS THE UPPER RIGHT CORNER 

THE COMPUTER WILL TYPE “#T0’ WHEN YOU HAVE ANOTHER FRONT 3,1 FROK? 1,1 

JUNP. TYPE TWO MEGATIVE NUMBERS IF YOU CANNOT JUMP. TOY 1,3 10? 3,3 

+107 -1,-1 410? -1,-1 

FROX7 5100 4 FROM STOO 4 FRON2 6101 5 
re rs ors Sra nr rs rs ars | rr rr re ar 
x . x . x . x « . Xx . x . Xx . . . . . x . x . 
. ns rr x rs crs rn ee rs os rr 
Xo. eee Xo. ee ee we ee 
nn . 0 . Ow rn 
0 . 0 . Oo . 9 rr ee re 
. 0 . 0 . 0 . 0 rn rr rr 
o . @ . 0 . o . 0 . 0 . @ . oO . 0 . 0... Oo . 
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FROH? 0,0 
To? 1,1 


FROH 1 S100 4 


FROM? 1,1 
TO? 2,2 
FRON 5 


FROMT 3,4 
TO? 2,4 
FRON'S 5 


FRONT 0,2 
FROKT 2,0 
TO? 3,1 

FROH A 6 


TO 4 


TO 4 


12 5 


5 PRINT TAB(32)3 "CHECKERS" 

10 PRINT TAB(IS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
15 PRINTPRINT2PRINT 

20 PRINT "THIS IS THE GAME OF CHECKERS. THE COMPUTER IS x," 
25 PRINT "AND YOU ARE O. THE COMPUTER WILL MOVE FIRST." 

30 PRINT "SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM." 

35 PRINT "(O,0) ES THE LOVER LEFT CORHER 

AQ PRINT "(0,7) IS THE UPPER LEFT CORNER" 

45 PRINT “(7,0) IS THE LOWER RIGHT CORNER" 

50 PRINT “(7,7) IS THE UPPER RIGHT CORNER” 

S5 PRINT "THE COMPUTER WILL TYPE “+TQ° WHEN YOU HAVE ANOTHER" 
60 PRINT “JUHP. TYPE TWO NEGATIVE NUMBERS IF YOU CANNOT JUMP." 
65 PRINT:PRINT: PRINT 

80 DIM R(4),S(7,7)2G2-12R(0) 8-99 

90 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,~1,0,-1,15 

120 FORX=0TO7:FORY=0107:READJs IF J=1S THEN 80 

160 S(X,Y)=J:60T0200 

180 RESTORE: READS(X,Y) 

200 NEXTY,X 

230 FORX=0T07:FORY=0107: IFS (X, Y))~1THEN3SO 

310 IFS(X,Y)=-1 THENFORA=~-11T01STEP2:8=6 :GOSUB650:NEXTA 

330 IFS(X, ¥}=~2THENFORA=~1101STEP2:FORB=-1101STEP2:GOSUBGSO:NEXTB,A 
350 NEXTY,X:G0T01140 

650 U=X+AsV=Y+Bs IFUCOORU70RVCOORY)?7 THENB 7G 

740 IFSCU,V)=OTHENGOSUB910:6070870 

770 IFS(U,V)<OTHENG70 

790 UFUtArV=V4Bs IFUCOORY<OORU>7ORV27 THENG70 

850 IFS(U,V)=OTHENGOSUB910 

870 RETURN 

910 IFV=OANDS(X, ¥)=-1THENG=042 

920 IFABS(Y-V}=2THEND=0+5 

960 IFY=7THENQ=0-2 

980 IFUSOORU=7 THENO=0+1 

1030 FORC=~1TOISTEP2:IFU+C<OORU+C> 7ORU+G<0THENTORO 

1035 IFS(U+E,0+G)<0THENG=0+1:G0T01080 

1040 IFU~C<OORU-C>70R¥-G>7 THENT O80 

1045 IFS(U+C, V+G) >0AND(S(U-C, UG) =O0R(U-C=XANDY-G=Y ) ) THEND=0-2 
1080 NEXTCs IFO>R(O) THENR(O)202R(1)=X2R(2)=YER(S)SUER(4 DEY 

1100 O=O:RETURN 

1140 IF R(O)=-99 THEN 1880 

1230 PRENTCHRS(30)°FROM*ROT)SR(2)"TOYR(S)IR(4) RCO) =-99 

1240 TFR(A)=OTHENS(R(3),R(4))#-22G0T01420 

1250 S(R(3), RCA) P=S(RCT) REZ) 

1310 SCRCT),R(2) )=O2 TFABS (RUT )-R(3)) CO2THENT 420 

1330 SC(ROVDFREI)I/2, (RCQIER(A) ) /2120 

1340 X=R(S):Y=R(4) 2 1FS (X,Y) =-f THENB=~2:FORA=-2TO25TEP4 :GOSUBI370 
1350 IFS(X,Y)=-QTHENFORA=~2TO2STEP4: FORB=~2TO2STEP4:G0SUB1370:NEXTB 
1360 REXTASIFR(Q)<>-99THENPRINT"TO"R(3)IR(4) t2R(0)=-99:GOT01240 
1365 GOTOTA20 

1370 U=X+AV=Y+Bs LFUCOORUS7ORV<OORV7 THEN 400 

1380 IFS(U,V)=0ANDS(X+A/2, Y+B/2) OTHENGOSUBIO 

1400 RETURN 

1420 PRINTSPRINTsPRINT:FORY=?TOOSTEP~{ sFORX=O10721=54X:PRINTTAB( I): 
1430 IFS(X,Y)=0THENPRINT".°? 

1470 IFS¢X,Y)=1THENPRINT"O"? 

1490 IES(X,Y)2-1THENPRINT"X"? 

1510 IFS(X,Y)=-2THENPRINT*X#"s 

1530 IFS(X,Y)=2THENPRINT*O#” : 

1550 HEXTX:PRINT" “:PRINTINEXTY PRINT 

1552 FORL=0T07 

1554 FORM=0TO? 

1556 IFS(L,M)=1ORS(L,M) =2THENZ=1 

1558 LFS(L,M)=-1ORS(L,M)=-2THENT=1 

1560 NEXTH 

1562 REXTL 

1564 IF Z<>1 THEN 1880 

1566 IF T<>1 THEN 1985 

1570 T=0: Z=0 


1570 INPUT “FROM"FE,HsX=Es YH: IFS(X,Y)<=OTHEN 1590 

1670 INPUT "TO"FA,BsX=ArY=B 

1680 IFS(X,¥)=O0ANDABS(A-E)<=2ANDABS (A-E) =ABS (B-H}) THENT 700 
Wy: 


1670 PRINTCHRS$ (7) CHRS( GOTO1G70 

1700 [=46 

1750 S(A,B)*S(E,H)sS(E,H) 20: IFABS(E-A)<>2THENISIO 
1800 S(CE+A)/2, (HTB) /2)20 

1802 INPUT "+TO"SA1,Bt:IF A1<0 THEN 1810 

1804 IFSCA1,B1)<>0ORABS (A1T-A)<>20RABS(B1-B) <> 2THENT S02 
1806 E=A:H=BrA=ATIB=Bts1=14+15:G0T01750 

1810 IFB=7THENS(A,B)=2 

1830 GOTO230 

1880 PRINT: PRINT "I WIN.": END 

1885 PRINT: PRINT “YOU WIN": ENB 
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Al 


Chemiust 


The fictitious chemical, kryptocyanic 
acid, can only be diluted by the ratio of 
¢ parts water to 3 parts acid. Any other 
ratio causes an unstable compound 
which soon explodes. Given an amount 
of acid, you must determine how much 
water to add for dilution. If you're more 
than 5% off, you lose one of your nine 
lives. The program continues to play 
until you lose all nine lives or until it is 
interrupted. 

It was originally written by Wayne 
Teeter of Ridgecrest, California. 


CHEMIST 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


THE FICTITIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE 3 PRINT TABCSS) 5 “CHENTST™ 
DILUTED BY THE RATIO GF 7 PARTS WATER TO 3 PARTS ACID. & PRINT TAB(IS);"CREATIVE COMPUTING HORRISTOUN, NEW JERSEY" 

IF ARY OTHER RATIO IS ATTEMPTED, THE ACID BECONES UNSTABLE 8 PRINTSPRINTSPRINT 
AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST 10 PRINT “THE FICTITIOUS CHECMICAL KRYPTOCYANIC ACID CAN ONLY BE" 
DECIDE HOW KUCH WATER TO ADD FOR DILUTION. IF YOU NSS 20 PRINT "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACID.” 
YOU FACE THE CONSEQUENCES. 30 PRINT “IF ANY OTHER RATIO 1S ATTEMPTED, THE ACID BECOHES UNSTABLE“ 
32 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER? 77 40 PRINT “AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST" 

’ 60 PRINT "YOU FACE THE CONSEQUENCES." 
11 LITERS OF KRYPTOCYANIC ACID. HOW HUCH WATER? 27 10 coe rt ta #50) 
' = 

ar GUIVERENG aeoroPLagHh es DESALINATED INTO A BLOB 120 PRINT AS"LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER"; 
HOWEVER, YOU WAY TRY AGAIN WITH ANOTHER LIFE. te peepscw-R) 

26 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER? 2a 190 IF DU/2) THEN 200 

1 
Or GUIVERING ieovot aN DESALINATED INTO A BLOB 160 PRINT “GOOD JOB! YOU HAY BREATHE NOW, BUT DON’T INHALE THE FUMES!" 
HOWEVER, YOU HAY TRY AGAIN WITH ANOTHER LIFE. Jeo ran 100 
? 

SIZZLE! YOU HAVE. JUSY BEEN DESALINATED siiTW a RLOL” 200 PRINT “SIZZLE{ YOU HAVE JUST BEEN DESALINATED INTO A BLOB" 
DF QUIVERING PROTOPLASH! 210 PRINT "OF QUIVERING PROTOPLASH!” 
HOWEVER, YOU HAY TRY AGAIN WITH ANOTHER LIFE. a5 tere THEN 260 

27 LITERS OF KRYPTOCYANIC ACID. HOW NUCH WATER? 43 2 , 
GOOD JOB! YOU HAY BREATHE NOW, BUT DON’T INHALE THE FUMES! ote oO YOU HAY TRY AGAIN WITH ANOTHER LIFE.° 

260 PRINT “YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBERED FOR" 

5 LITERS OF KRYPTOCYANIC ACID. HOW KUCH WATER? 9 270 PRINT "YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY.“ 

SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB 280 END 


OF GUIVERING PROTOPLASH! 
HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE. 

41 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER? 28 
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB 
OF QUIVERING PROTOPLASH! 

HOWEVER, YOU HAY TRY AGAIN WITH ANOTHER LIFE. 
48 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER? 


BREAK IN 130 


42 


In the words of the program author, 
John Graham, “CHIEF is designed to 
give people (mostly kids) practice in 
the four operations (addition, mul- 
tiplication, subtraction, and division). 

It does this while giving people some 
fun. And then, if the people are wrong, 
it shows them how they should have 
done it. 

CHIEF was written by John Graham 
of Upper Brookville, New York. 


CHIEF 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


1 AM CHIEF NUMBERS FREEK, THE GREAT INDIAN KATH GOD. 
ARE YOU READY TO TAKE THE TEST YOU CALLED HE OUT FOR? YES 

TAKE & NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND 
MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SANE. SUBTRACT 1. 

WHAT DO YOY HAVE? 12 
T BET YOUR NUMBER WAS 22 WAS 1 RIGHT? NO 
UHAT WAS YOUR ORIGINAL NUMBER? 32 
SO YOU THINK YOU“RE SO SMART, EH? 
NOU UATCH. 

32 PLUS 3 EQUALS 35 . THIS DIVIDED BY 5 EQUALS 7 ; 
THIS TIMES 8 EQUALS 56. IF WE DIVIDE BY 5 AND ADD 5, 
WE GET 16.2 , WHICH, MINUS 1 EQUALS 15.2. 

NOW DO YOU BELIEVE ME? NO 
YOU HAVE HADE ME MADI!E 
THERE MUST BE A GREAT LIGHTNING BOLT! 


HRHRHAHA RHR AAA 


T HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!! 
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2 PRINT TAB(30) “CHIEF” 
4 PRINT TAB(15) "CREATEVE COMPUTING MORRISTOWN, NEU JERSEY” 
6 PRINT: PRINTSPRINT 


10 
20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
155 
160 
170 
180 
190 
200 
210 
230 
240 
250 
260 
270 
290 
295 
300 
310 
330 
340 
350 
360 
370 
380 
370 
400 
410 
420 
430 
440 
450 
470 
480 
510 
520 


PRINT 
PRINT 
INPUT 
IF A$= 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
LET C 
PRINT 
INPUT 
IF D$ 
PRINT 
INPUT 
LET F 
LET G 
LET H 
LET I 
LET J 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF 7Z$ 
PRINT 
PRINT 
PRINT 
FOR X 
PRINT 


" TE Att CHIEF NUMBERS FREEK, THE GREAT INDIAN NATH GOD." 
“ARE YOU READY FO FAKE THE TEST YOU CALLED ME OUT FOR"; 
as 

"YES" THEN 40 

“SHUTUP PALE FACE WITH WISE TONGUE." 

" TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND" 
“MULTIPLY BY 8. BIVIDE BY 5 AND ADD THE SAME, SUBTRACT 1." 
"  UHAT DO YOU HAVE"; 
B 

= (B41~-5)85/885-3 

"T BET YOUR NUMBER WAS “ EC" WAS I RIGHT": 

Ds 


="YES" THEN 510 


"WHAT YAS YOUR ORIGINAL NUMBER"; 
K 


BK 
SF/5 
26*8 
SH/S45 
2 | 


"SO YOU THINK YOURE SO SMART, EH?" 

"NOU WATCH.” 

K"PLUS 3 EQUALS"F". THIS DIVIDED BY 5 EQUALS"G";" 
"THIS TEMES 8 EQUALS“H". IF WE DIVIDE BY 5 AND ADD 5," 
“WE GET"E", WHICH, MINUS f EQUALS"J"." 

"NOU DO YOU BELIEVE HE"; 

z$ 

="YES" THEN 510 

"YOU HAVE HADE ME MADITI” 

“THERE HUST BE A GREAT LIGHTNING BOLT!" 

SPRINT 


230 TQ 22 STEP -1 


TAB(X) "X X" 


NEXT X 


PRINT 
PRINT 
PRINT 
FOR Y 
PRINT 


TAB(21) °X XXX" 
TAB(20) "X= xX" 
TABCEO) YXXX XK" 


=20 T0 13 STEP -1t 


TAB(Y) "X X" 


NEXT Y 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


TAB(12) "XX" 

TABI) "X* 

TAB(10) "#" 

SPRINT" HHHHHAAHAARHARHHA ARH AA ABA SPRINT 

"IT HOPE YOU BELIEVE ME NOM, FOR YOUR SAKE!!" 


GOTO 520 


END 


This program is an adaptation of a PLAYER 1 1 
mathematical game originally describ- COORDINATES OF CHOMP (ROW,COLUMN)? 5,6 
ed by Martin Gardner in the January 123456789 
1973 issue of Scientific American. Up 1 Peteeare 
to a 9x9 grid is set up by you with the ; enennn 
upper left square a poison square. This 4 beeeeas 
grid is the cookie. Players alternately 5 te eee 
chomp away at the cookie from the 4 eee 
lower right. To take a chomp, input a ; +eeee 

8 ee ea 
row and column number of one of the 
squares remaining on the cookie. All of PLAYER 2 
the squares below and to the right of COORDINATES OF CHOMP (ROW,COLUMN)? 3,2 
that square, including that square, 
disappear. 123456789 

Any number of people can play — the , , : : : ; ; ; 
computer is only the moderator; it is 3 : 
not a player. Two-person strategies are 4 ’ 
interesting to work out but strategies 5 ‘ 
when three or more people are playing ; ; 
are a real challenge. a ’ 

The computer version of the game 
was written by Peter Sessions of EOURDINATES OF CHOMP (ROW,COLUKN)? 4,4 

, ’ oR, 
People’s Computer Company. NO FAIR. YOU’RE TRYING TO CHOHP ON EMPTY SPACE! 
CHOMP PLAYER 1 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY COORDINATES OF CHOMP (ROU,COLUNN)? 2,2 
123456789 
THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 1973) , peerees 
WANT THE RULES (1=YES, O=NO1)? 1 3 " 
CHOWP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY). ’ : 
HERE’S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7}: ; ; 
123456789 7 

{ Peete eae 8 

SOME ruaven 2 

4 seeeaes COORDINATES OF CHOMP (ROW,COLUKN)? 1,2 

5 Fee eee 123456789 

1 P 
THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUKNS ; : 
WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT 4 ‘ 
CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE WHO 5 i" 
CHOHPS THE POISON SQUARE LOSES. TO TAKE A CHOMP, TYPE THE i + 
ROW AND COLUMN OF ONE OF THE SQUARES ON THE COOKIE. 7 + 
ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE a : 
CIHCLUDING THAT SQUARE, 100) DISAPPEAR -- CHOMP?! 
NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOHPED, PLAYER 1 


OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE. COORDINATES OF CHOMP (ROW,COLUKN)? 2,4 
, Some 


HERE WE GQ... 
123456789 
HOW MANY PLAYERS? 2 1 P 
HOW MANY ROWS? @ 2 
HOU MANY COLUMNS? 7 : 
5 
123456749 é 
1 Petueus ? 
2 eee eeex 8 
3 eset eans 
4 eee tees PLAYER 2 
5 tee eaee COORDINATES OF CHOMP (ROW,COLUNN)? 1,1 
é eee eH ED YOU LOSE, PLAYER 2 
7 eee et eae 
8 ee Ree EE AGAIN (1=YES; O=NO1)? 0 


44 


10 PRINT TAB(33);°CHOHP" 

20 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
3O PRINTSPRINTSPRINT 

40 DIM AC10,10) 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
2t0 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
340 
370 
372 
375 
437? 
379 
380 
3970 
400 
41d 
420 
430 
440 
450 
460 
470 
480 
490 
500 
St 
530 
340 


REN #4 THE GAME OF CHOMP #*% COPYRIGHT PCC 1973 #¢2 
PRINT 

PRINT “THIS IS THE GAHE OF CHOMP (SCIENTIFIC AMERICAN, JAN 
PRINT "WANT THE RULES (1=YES, O=NO!)"; 

INPUT R 

IF R=0 THEN 340 

Fey 

R25 

C=? 

PRINT “CHOMP IS FOR 1 OR HORE PLAYERS (HUNANS ONLY).” 
PRINT 

PRINT “HERE“S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7)s* 
GOSUB 340 

PRINT 

PRINT “THE BOARD IS A BIG COOKIE ~ R ROWS HIGH AND C COLUMNS" 
PRINT "WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT" 
PRINT “CORNER OF THE COOKIE 18 A POISON SQUARE (P). THE ONE WHO" 
PRINT “CHOWPS THE POISON SQUARE LOSES. T@ TAKE A CHOMP, TYPE THE” 
PRINT “ROW AND COLUHN OF ONE OF THE SQUARES ON THE COOKIE." 
PRINT “ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE" 
PRINT "CINCLUDING THAT SQUARE, T00) DISAPPEAR -- CHONP!!“ 

PRINT "NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOKPED," 
PRINT "OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE." 
PRINT 

PRINT "HERE WE GO..." 

REM 

Feo 

FOR I=1 10 10 

FOR J=t TO 10 

ACT, J)=0 

NEXT J 

NEXT I 

PRINT 

PRINT "HOW HANY PLAYERS“; 

INPUT P 

It=0 

PRINT “HOU MANY ROWS"; 

INPUT R 

IF R <= 9 THEN 470 

PRINT “TOO MANY ROWS (9 IS MAXIAUN). NOW, “3 

GOTO 420 

PRENT “HOW HANY COLUMNS’; 

ENPUT C 

IF C <= 9 THEN 530 

PRINT "TOO MANY COLUMNS (7 IS MAXIMUM). NOW, "5 

GOTO 470 

PRINT 

FOR I=! TOR 


1973)" 
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550 FOR J=1 TOC 

360 ACE, J)=1 

570 NEXT J 

300 NEXT I 

590 ACL, 1)=-1 

600 REM PRINT THE BOARD 


410 PRINT 

$20 PRINT TAB(7)3"1 23454678 9" 
630 FOR I=1 TOR 

640 PRINT 1; TAB(7)5 

650 FOR J=1 TOC 

660 IF ACI,J)=-1 THEN 700 

670 IF A(I,J)=0 THEN 720 

680 PRINT “# “; 

670 GOTO 710 

200 PRINT "P "s 

710 NEXT J 

720 PRINT 

730 NEXT I 

740 PRINT 

750 IF FeO THEN 770 

760 RETURN 

770 REM GET CHOMPS FOR EACH PLAYER IN TURN 
780 LET It=11#1 

790 LET PI=T1-INT(I1/P)4P 

800 IF Pi <> 0 THEN 820 

810 PISP 

820 PRINT “PLAYER “PI 

830 PRINT “COORDINATES OF CHOWP (ROW,COLUMN)"; 
840 INPUT R1,C1 

850 IF RI<i THEN 920 

860 IF RIDR THEN 920 

870 IF C1<1 THEN 920 

880 IF C1I>C THEN 920 

a90 IF A(R1,C1)=0 THEN 920 

900 IF ACRI,CI)=-1 THEN 1010 

910 GOTO 940 

920 PRINT “NO FAIR. YOURE TRYING TO CHOHP ON EMPTY SPACE!“ 
730 GOTO 820 

940 FOR I=R1 TOR 

950 FOR JeCI TOC 

960 ALI, J)=0 

970 NEXT J 

980 NEXT I 

990 GOTO 610 

1000 REH END OF GAME DETECTED IN LINE 900 
1010 PRINT “YOU LOSE, PLAYER oP 
1020 PRINT 

1030 PRINT "AGAIN (1=YES; O=NO!)"; 
1040 INPUT R 

1050 IF R=f THEN 340 

1060 END 


Civil War 


This simulation is based on 14 battles 
in the Civil War. Facts and figures used 
are based on the actual occurrence. If 
you follow the same strategy used in 
the actual battle, the results will be the 
same. Generally, this is a good strategy 
since the generals in the Civil War 
were fairly good military strategists. 
However, you can frequently outper- 
form the Civil War generais, particular- 
ly in cases where they did not have 
good enemy intelligence and conse- 
quently followed a poor course of 
action. Naturally, it helps to know your 
Civil War history, although the com- 
puter gives you the rudiments. 

After each of the 14 battles, your 
casualties are compared to the actual 
casualties of the battle, and you are 
told whether you win or lose the baitle. 

You may play Civil War alone in 
which case the program simulates the 
Union general. Or two players may play 
in which case the computer becomes 
the moderator. 

Civil War was written in 1968 by three 
Students at Lexington High School, 
Massachusetts: L. Cram, L. Goodie, 
and D. Hibbard. It was modified into a 
2-player game by G. Paul and R. Hess 
of TIES, St. Paul, Minnesota. 


CIVIL WAR 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DO YOU VANT INSTRUCTIONS? YES 


THIS IS A CIVIL WAR SIMULATION. 

TO PLAY, TYPE A RESPONSE WHEN THE CONPUTER ASKS. 

REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR 
RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE 
BASED ON THE ACTUAL OCCURRENCE. MOST BATTLES TEND TO RESULT 
AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON YOU!! 


THE OBJECT OF THE GAHE IS TO WIN AS MANY BATTLES AS POSSIBLE. 


YOUR CHOICES FOR DEFENSIVE STRATEGY ARE: 
(1) ARTILLERY ATTACK 
(2) FORTIFICATION AGAINST FRONTAL ATTACK 
(3) FORTIFICATION AGAINST FLANKING NANEUVERS 
(4) FALLING BACK 

YOUR CHOICES FOR OFFENSIVE STRATEGY ARE: 

(1) ARTILLERY ATTACK 
(2) FRONTAL ATTACK 
(3) FLANKING MANEUVERS 
(4) ENCIRCLEMENT 

YOU HAY SURRENDER BY TYPING A “5° FOR YOUR STRATEGY. 


ARE THERE TWO GENERALS PRESENT (ANSWER YES OR NO)? YES 
SELECT A BATTLE BY TYPING A NUNBER FROM 1 TO 14 ON 
REQUEST, TYPE ANY OTHER NUMBER TO END THE SIMULATION. 
BUT ’0’ BRINGS BACK EXACT PREVIOUS BATTLE SITUATION 
ALLOVING YOU TO REPLAY IT 


NOTE: A NEGATIVE FOODS ENTRY CAUSES THE PROGRAH TO 
USE THE ENTRIES FROM THE PREVIOUS BATTLE 


AFTER REQUESTING A BATTLE, DO YOU WISH BATTLE DESCRIPTIONS 
(ANSUER YES OR NO)? YES 


WHICH BATTLE DO YOU WISH TO SIMULATE? 3 


THIS IS THE BATTLE OF SEVEN DAYS 

JUNE 25-JULY 1, 1862. GENERAL LEE (CSA) UPHELD THE 
OFFENSIVE THROUGHOUT THE BATTLE AND FORCED GEN. MCCLELLAN 
AND THE UNION FORCES AVAY FROM RICHMOND. 


CONFEDERACY UNION 


MEN 95000 115000 
NONEY $ 427500 $ 517500 
INFLATION 25 2 10 % 


CONFEDERATE GENERAL-~~HOW NUCH DO YOU VISH TO SPEND FOR 
~ FOOD. ...66 ? 100000 
~ SALARIES.. 7? 140000 
~ AMMUNITION ? 180000 


UNION GENERAL---HOW MUCH DO YOU WISH TO SPEND FOR 
~ FOOD...... ? 120000 

~ SALARIES... ? 160000 

~ ANKUNITION 7 237500 


CONFEDERATE MORALE IS FAIR 
UNION MORALE IS FAIR 
CONFEDERATE GENERAL---YOU ARE ON THE OFFENSIVE 


CONFEDERATE STRATEGY ? 4 
UNION STRATEGY 7? 2 


CONFEDERACY UNION 
CASUALTIES 18805 13738 
DESERTIONS 13 10 


COMPARED TO THE ACTUAL CASUALTIES AT SEVEN DAYS 
CONFEDERATE: 91 2% OF THE ORIGINAL 
UNION: 87 2 OF THE ORIGINAL 


THE UNION WINS SEVEN DAYS 


WHICH BATTLE DO YOU WISH TO SIMULATE? 6 


THIS IS THE BATTLE OF FREDERICKSBURG 
DEC 13, 1862. THE CONFEDERACY UNDER LEE SUCCESSFULLY 
REPULSED AN ATTACK BY THE UNION UNDER GEN. BURNSIDE. 


CONFEDERACY UNION 


NEN 76417 122191 
NONEY $ 335800 $ 592000 
INFLATION 27% 82 


CONFEDERATE GENERAL---HOW MUCH DO YOU WISH TO SPEND FOR 
~ FOOB...... ? 100000 
~ SALARIES... ? 100000 
~ AMMUNITION ? 135800 


UNION GENERAL-~~HOW NUCH DO YOU WISH TO SPEND FOR 
~ FOOD. «ss. % 130000 
~ SALARIES.. ? 150000 
~ AMNUNITION ? 272000 


CONFEDERATE MORALE IS FAIR 
UNION MORALE 1S HIGH 
CONFEDERATE GENERAL~--YOU ARE ON THE DEFENSIVE 


CONFEDERATE STRATEGY 7 2 
UNION STRATEGY 7? 4 


CONFEDERACY UNION 
CASUALTIES 4870 10360 
DESERTIONS 1t 6 


COMPARED TG THE ACTUAL CASUALTIES AT FREDERICKSBURG 
CONFEDERATE: 91 % OF THE ORIGINAL 
UNTON: 82 % OF THE ORIGINAL 


THE CONFEDERACY WINS FREDERICKSBURG 


WHICH BATTLE DO YOU WISH TO SIMULATE? 15 


THE CONFEDERACY HAS WON { BATTLES AND LOST 1 
THE UNION HAS WON THE WAR 


FOR THE 2 BATTLES FOUGHT (EXCLUDING RERUNS) 
CONFEDERACY UNION 


HISTORICAL LOSSES 25991 28502 
SIMULATED LOSSES 23700 24its 
% OF ORIGINAL ot 83 


2 PRINT TAB(26) “CIVIL WAR” 

4 PRINT TAB(15) "CREATIVE COMPUTING NORRISTOWN, NEW JERSEY" 
& PRINT s PRINT s PRINT 

20 REN ORIGINAL GANE DESIGN: CRAM, GOODIE, HIBBARD LEXINGTON H.S. 
30 REM NODIFICATIONS: G. PAUL, R. HESS (TIES), 1973 
SO DIM SCA), C$C14) MECIAD NCEA) C114), £2094), NCTA) 
60 REM UNION INFO ON LIKELY CONFEDERATE STRATEGY 

70 S$(1)=25 s §$(2)825 2 §¢3)825 2 $(4)=25 

82 REM READ HISTORICAL DATA. 

84 FOR D=t TO 14 

86 READ C$(D),M1(D),N2(D),CH(D),C2(D) MED) 

88 NEXT D 

69 LET D=RND(-1) 

90 PRINT 

100 PRINT "DO YOU WANT INSTRUCTIONS”; 

110 INPUT X$ 

120 IF X6="YES" THEN 160 

130 IF X$="NO" THEN 370 

140 PRINT “YES OR NO -~ "5 

150 GOTO 110 

160 PRINT " 


170 PRINT “THIS IS A CIVIL WAR SIMULATION.” 

180 PRINT “TO PLAY, TYPE A RESPONSE WHEN THE COMPUTER ASKS." 

190 PRINT “REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR" 
200 PRINT “RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE" 
210 PRINT "BASED ON THE ACTUAL OCCURRENCE. HOST BATTLES TEND TO RESULT" 
220 PRINT "AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON YoU!!" 
230 PRINT 

240 PRINT "THE OBJECT OF THE GANE IS TO WIN AS MANY BATTLES AS “; 

245 PRINT "POSSIBLE." 

250 PRINT 

260 PRINT "YOUR CHOICES FOR DEFENSIVE STRATEGY AREs” 

270) «PRINT * (1) ARTILLERY ATTACK" 

280 PRINT “ (2) FORTIFICATION AGAINST FRONTAL ATTACK” 

290 PRINT * (3) FORTIFICATION AGAINST FLANKING MANEUVERS” 

300) PRINT " (4) FALLING BACK" 

310 PRINT * YOUR CHOICES FOR OFFENSIVE STRATEGY ARE:” 

320 PRINT * (1) ARTILLERY ATTACK" 

330° PRINT * (2) FRONTAL ATTACK" 

340) PRINT * (3) FLANKING MANEUVERS" 

350 PRINT * (4) EWCIRCLENENT” 

360 PRINT “YOU HAY SURRENDER BY TYPING A “5’ FOR YOUR STRATEGY.” 

370 PRINT * 


ARE THERE TWO GENERALS PRESENT "; 
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380 
390 
400 
410 
420 


425 
430 
440 
450 
460 
470 
480 
490 
500 
910 
520 
530 
540 
550 
540 
570 
580 
590 
600 
610 
620 


630 
640 
650 
655 
660 
665 
670 
680 
490 
700 
710 
720 
980 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


1100 
1110 
1120 
1125 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1195 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 


PRINT “{ANSVER YES OR NO)"; 
THPUT BS 

IF BS="YES" THEN 430 

IF BS <> "WO" THEN 380 
PRINT " 


YOU ARE THE CONFEDERACY. GOOD LUCK!” 


PRINT 

LET D=1 

IF BS <> “YES" THEN 460 

LET Da2 

PRINT “SELECT A BATTLE BY TYPING A NUMBER FROM 1 TO 14 ON" 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF X$="YES" THEN 600 


“REQUEST. TYPE ANY OTHER NUNBER TO END THE SIMULATION.” 
"BUT “0” BRINGS BACK EXACT PREVIOUS BATTLE SITUATION” 
"ALLOWING YOU TO REPLAY T° 


“NOTE: A NEGATIVE FOODS ENTRY CAUSES THE PROGRAM TO " 
“USE THE ENTRIES FROM THE PREVIOUS BATTLE” 


"AFTER REQUESTING A BATTLE, DO YOU WISH “s 
"BATTLE DESCRIPTIONS °; 

"CANSUER YES OR NO)" 

xs 


IF X$ <> "HO" THEN 560 
L=0sW20:R1=0s01=0sN3=02N4=202Pt=02P2=02T1=02T2=0 
F(2)=03H(2)=02B(2)=02R2=0202=0206=0sF=02W0=02¥=02Y2=0:U=0s2=0 


PRINT ° 


" 


PRINT “UHICH BATTLE DO YOU WISH TD SIMULATE”; 
INPUT A 

IF A <> 0 THEN 660 

IF R <> 
IF A <= 
IF A >= 
LET 
LeT 
LET 
LET 
LET 
LET 
LET 
REN 
LET 
LET 


0 THEN 1140 
0 THEN 2860 
15 THEN 2860 
C$=C$(A) 
HISNI(A) 
H2aH2(A) 
CisCi(A) 
C2=C2(A) 
NEHA) 
U=0 
INFLATION CALC 
11=104(L-W)#2 
122104(U-L)42 
REN - HONEY AVAILABLE 
LET DC1)=1008INT( (H18(100~11)/2000)4(14(RE-O1)/(RI#T)) +.5) 
LET D(2)=100*INT(N24(100-12)/20004.5) 
IF BS <> "YES" THEN 1050 
LET D¢2>=1009INT( (N29 ( 100-12)/2000)4(14(R2-02) /(R241 94.5) 
REX ~ NEN AVAILABLE 
LET MS=INT(MES( PE CPI-THD/ C349) >) 
LET NG=INT(H20¢94+(P2-T2)/(H441))) 
LET FisSeni/6 
PRINT " 


PRINT “THIS IS THE BATTLE OF “5C8 

IF X$="NO" THEN 1150 

IF ADt? THEN 1130 

ON A GOTO 3580, 3620,3650,3690,3720,3750 ,3780, 3800, 3830, 3860, 3890 
ON A-11 GOTO 3920,3950,3980 

PRINT C8" INSTANT REPLAY" 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
REM - ONLY IN PRINTOUT IS CONFED INFLATION = 114152 
REM - IF TWO GENERALS, INPUT CONFED. FIRST 

FOR I=! TO D 

IF BS <> “YES” THEN 1260 

IF 1=2 THEN 1260 

PRINT “CONFEDERATE GENERAL-~-"; 

PRINT "HOW MUCH DD YOU VISH 10 SPEND FOR" 

PRINT “ - FOOD...60."! 

INPUT F 

IF F >= 0 THEN 1360 

IF RI <> 0 THEN 1330 

PRINT "NO PREVIOUS ENTRIES" 

GOTO 1270 

PRINT "ASSUME YOU WANT TO KEEP SAHE ALLOCATONS" 
PRINT 

GOTO 1510 

LET FAL)=F 

PRINT * ~ SALARIES.."; 

Input HCD) 

LET Het 


" ©, "CONFEDERACY",” UNION" 

"HEN", "NS," "M6 
"MONEY", "S$" sD(1),"8"sD(2) 
PENFLATION","” "STVeiSg7z"," “s12gen" 


1400 
1440 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1940 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 


2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
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IF H(L)<O THEN 1490 

PRINT " ~ AMMUNITION"; 

INPUT BCI) 

LET N=2 

IF B(1)<O THEN 1490 

PRINT 

IF FCD)+H(2)+B(1) <= DCT) THEN 1510 
PRINT “THINK AGAIN! YOU HAVE ONLY $°D(I) 
GOTO 1270 

PRINT “NEGATIVE VALUES NOY ALLOWED.” 
ON N GOTO 1370,1410 

IF B¢ <> "YES" THEN 1550 

IF I=2 THEN 1550 

PRINT "UNION GENERAL---"s 

NEXT 1 

FOR Z=1 10 BD 

IF BS <> "YES" THEN 1620 

ON Z GOTO 1580,1600 

PRINT "CONFEDERATE "3 

GOTO 1620 

PRINT * UNION "5 

REN - FIND MORALE 

LET O=0(29F(Z)°24H(Z)°2)/F 1 °249) 
IF 0<10 THEN 1660 

PRINT "MORALE IS HIGH" 

GOTO 1700 

IF O<5 THEN 1690 

PRINT "MORALE IS FAIR" 

GOTO 1700 

PRINT “HORALE IS POOR” 

IF BS <> "YES" THEN 1760 

LET 0(Z)=0 

WEXT Z 

LET 02=0(2) 

LET 0-061) 

PRINT "CONFEDERATE GENERAL--~"; 
REM - ACTUAL OFF/DEF BATTLE SITUATION 
IF MW C> 3 THEN 1800 

PRINT “YOU ARE ON THE OFFENSIVE" 
GOTO 1840 

IF W <> 1 THEN 1830 

PRINT "YOU ARE ON THE DEFENSIVE" 
GOTO 1840 

PRINT "BOTH SIDES ARE ON THE OFFENSIVE * 
PRINT 

REM ~ CHOOSE STRATEGIES 

IF B& <> "YES" THEN 1910 

FOR I=1 T0 2 

ON I GOTO 1890,1920 

PRINT "CONFEDERATE STRATEGY "3 
GOTD 1920 

PRINT "YOUR STRATEGY "; 

INPUT ¥ 

IF ABS(Y-3)<3 THEN 1960 

PRINT "STRATEGY"5¥;"NOT ALLOWED." 
6070 1910 

IF BS="YES" THEW 2000 

IF Ye5 THEN 2830 

GOSUB 3110 

B0TO 2170 

IF I=2 THEN 2040 

LET ¥isy 

PRINT "UNION STRATEGY "; 

NEXT I 

LET Y2=¥ 

LET Ya¥1 

IF Y2=5 THEN 2020 

REM + SIMULATED LOSSES-NORTH 

LET C6=(2902/5)8(14+1/(26(ABS(Y2~¥)+1))) 
LET C6=C60(1.28+(59H2/6)/(B(2)41)) 
LET COmINT(C60(14+1/02)+.5) 

REN - IF LOSS > HEN PRESENT, RESCALE LOSSES 
LET £2=100/02 

IF ENT(CO+E2)<HS THEN 2190 

LET COsINT(13#H6/20) 

LET E2=7%€6/13 

LET U2=1 

REM ~- CALCULATE SIMULATED LOSSES 
PRINT 

PRINT * 


", "CONFEDERACY", "UNION" 
LET C5=(2e01/5)4(941/( 2" (ABS(Y2-Y)41))) 
LET CS=ENT(CS#(1#1/0)9(1,284F1/(B(1)4+1))4.5) 
LET E=100/0 
IF C5tt00/0<MEs(1+(PE-TED/(M341)) THEN 2270 
LET CO=INTCLS#N1/208(1 4 (PE-TED/(N341))) 
LET E=79C5/13 
LET U=1 
IF D=t THEN 2500 
PRINT "CASUALTIES" ,C5,C6 


2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2375 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2350 
2560 
2570 
2380 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2480 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 


2870 
2880 
2890 
2900 
2910 
2915 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 


PRINT "DESERTIONS" ,INT(E), INT(E2) 


PRINT 

IF BS <> "YES" THEN 2530 

PRINT "COMPARED TO THE ACTUAL CASUALTIES AT "C$ 

PRINT “CONFEDERATE: "INT(1008(C5/C1)+.5)"% OF THE ORIGINAL" 
PRINT "UNION: "INT (100%(C6/C2)+.5)"% OF THE ORIGINAL" 
PRINT 

REM - 1 WHO ONE 


IF UB <> 1 THEN 2380 

U2=1 THEN 2460 

U=f THEN 2420 

U2=1 THEN 2440 

CS+tE=CO+E2 THEN 2440 

CO+HE<C6+E2 THEN 2440 

PRINT "THE UNION WINS "C$ 

GOTO 2600 

PRINT "THE CONFEDERACY WINS "C$ 
GOTO 2660 

PRINT "BATTLE OUTCONE UNRESOLVED" 
LET WO=WO+! 

IF A=0 THEN 2790 

GOTO 2680 

LET C6=INT(174029C1/(05820)) 

LET E2=5e0 

GOTO 2280 

PRINT "YOUR CASUALTIES WERE “INT(100#(C5/C1)+.5)"°% OF ” 
PRINT "THE ACTUAL CASUALTIES AT ";C$ 
PRINT 

REM - FIND WHO WON 

IF Y=) THEN 2590 

IF CS+E<178C2eC1/(C5#20)+540 THEN 2630 
PRINT “YOU LOSE ";C% 

IF AeQ THEN 2790 

LET Leb +1 

GOTO 2680 

PRINT "YOU WIN ";C$ 

REM - CUMULATIVE BATTLE FACTORS WHICH ALTER HISTORICAL 
REM RESOURCES AVAILABLE.IF A REPLAY DON’T UPDATE. 
TF A=0 THEN 2790 

LET U=U+! 

LET TIsT1eCS+€ 

LET T2=T2+C6+E2 

LET Pi=Pitl) 

LET P2=P24+C2 

LET QE=Q1+(FCN)FHCE+BCT)) 

LET O2=02+(F(2)+H(2)4+B(2)) 

LET RI=RI+H1#(100-11)/20 

LET R2=R2+H24(100-12)/20 

LET N3=H3+H1 

LET M42H4+H2 

GOSUB 3300 

U=0:U220 


REH------ FINISH OFF 

PRINT "THE CONFEDERACY HAS SURRENDERED" 
GOTO 2860 

PRINT "THE UNION HAS SURRENDERED." 
PRINT " 


PRINT “THE CONFEDERACY "> 

PRINT "HAS YON “W" BATTLES AND LOST “L 

IF Y=5 THEN 2940 

IF Y2=5 THEN 2920 

IF U <= L THEN 2940 

IF Y=5 THEN 2940 

PRINT "THE CONFEDERACY HAS WON THE WAR” 

GOTO 2950 

PRINT “THE UNION HAS WON THE WAR" 

PRINT 

IF Ri=0 THEN 3100 

PRINT "FOR THE “U+L+W0" BATTLES FOUGHT (EXCLUDING RERUNS)" 
PRINT " ", "V8 M5 

PRINT “CONFEDERACY"," UNION” 

PRINT "HISTORICAL LOSSES", INT(PI+.5) ,INT(P2+.5) 


PRINT "SIMULATED LOSSES", INT(TI+.5),INT(T2+.5) 
PRINT 
PRINT * % OF ORIGINAL”, INT(100%(TI/P1)4.5) ,INT(100%(T2/P2)+.5) 


IF B$="YES" THEN 3100 

PRINT 

PRINT "UNION INTELLIGENCE SUGGESTS THAT THE SOUTH USED " 
PRINT “STRATEGIES 1, 2, 3, 4 IN THE FOLLOWING PERCENTAGES" 
PRINT S(1)55(2);5¢3)5S5(4) 


STOP 

REM - UNION STRATEGY IS COMPUTER CHOSEN 
PRINT "UNION STRATEGY IS “; 

IF A <> 0 THEN 3180 


3140 
3150 
S155 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
4260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
SAI 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3540 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3460 
3670 
3480 
3690 
3695 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3785 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3865 
3870 
3880 
3890 
3900 
3710 
3920 
3930 
3940 
3950 
3960 
3970 
39B0 
3990 
4000 
4010 
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PRINT "JULY 1-3, 1863. 


INPUT ¥2 

IF Y¥2 <= 0 THEN 3160 

IF ¥2<5 THEN 3290 

PRINT “ENTER 1, 2 43 , OR 4 (USUALLY PREVIOUS UNION STRATEGY)” 
GOTO 3140 

LET S0=0 

LET R=100#RND(O) 

FOR I=1 10 4 

LET S0=S0+S(I) 

REM ~ IF ACTUAL STRATEGY INFO 15 IN PROGRAN DATA STATEMENTS 

REN THEN R-100 IS EXTRA WEIGHT GIVEN TO THAT STATEGY. 

IF R<SO THEN 3270 

NEXT I 

REN ~ IF ACTUAL STRAT. IN, THEN HERE IS Y2= HIST. STRAT. 

LET Y2=1 

PRINT Y¥2 

RETURN 

REM LEARN PRESENT STRATEGY, START FORGETTING OLD ONES 

REN - PRESENT STRATEGY OF SOUTH GAINS 3*S, OTHERS LOSE S 

REN = =PROBABILITY POINTS, UNLESS A STRATEGY FALLS BELOW 5%. 

LET S=3 

LET 50=0 

FOR I=1 10 4 

IF S¢1) <= 5 THEN 3390 

LET S(1)=S(1)-S 

LET S0=S0+S 

NEXT I 

LET S(Y)=S(Y) +50 

RETURN 

REN ~ HISTORICAL DATA...CAN ADD MORE (STRAT.,ETC) BY INSERTING 
REN DATA STATEMENTS AFTER APPRO. INFO, AND ADJUSTING READ 

DATA "BULL RUN",18000,18500,1967,2708, 1 

DATA "SHILOH", 40000. ,44894.,10699,13047,3 

DATA "SEVEN DAYS",95000.,115000.,20614,15849,3 

DATA "SECOND BULL RUN", 54000. ,63000.,10000,14000,2 

DATA “ANTIETAN" , 40000. ,50000.,10000,12000,3 

DATA "FREDERICKSBURG" ,75000., 120000, ,5377, 12653, 1 

DATA "MURFREESBORO" , 38000. ,45000.,11000,12000,1 

DATA "CHANCELLORSVILLE", 32000, 90000. ,13000,17197,2 

DATA "VICKSBURG" ,50000.,70000.,12000,19000,1 

DATA "GETTYSBURG", 72500. ,85000.,20000,23000,3 

DATA "CHICKAMAUGA", 66000. ,60000.,18000,16000,2 

DATA “CHATTANOOGA” , 37000. ,60000.,346700.,5800,2 

DATA "SPOTSYLVANIA" ,62000.,110000.,17723,18000,2 

BATA “ATLANTA”, 65000. ,100000.,8500,3700,1 

PRINT "JULY 21, 1861. GEN. BEAUREGARD, COMMANDING THE SOUTH, HET" 
PRINT "UNION FORCES WITH GEN. HCDOVELL IN A PREMATURE BATTLE AT” 
PRINT "BULL RUN. GEN. JACKSON HELPED PUSH BACK THE UNION ATTACK." 
GOTO 1150 

PRINT "APRIL 6-7, 1862. THE CONFEDERATE SURPRISE ATTACK AT” 
PRINT "SHILOH FAILED DUE TO POOR ORGANIZATION.” 

GOTO 1150 

PRINT "JUNE 25-JULY 1, 1862. GENERAL LEE (CSA) UPHELD THE® 

PRINT “OFFENSIVE THROUGHOUT THE BATTLE AND FORCED GEN. MCCLELLAN” 
PRINT "AND THE UNION FORCES AWAY FROM RICHMOND." 

GOTO 1150 

PRINT "AUG 29-30, 1862. 
PRINT “ LEE" 

PRINT “AND JACKSON DROVE THE UNION FORCES BACK INTO WASHINGTON.” 
GOTO 1150 

PRINT "SEPT 17, 1862. THE SOUTH FAILED TO INCORPORATE MARYLAND" 
PRINT “INTO THE CONFEDERACY." 

GOTO 1150 

PRINT "DEC #3, 1862. THE CONFEDERACY UNDER LEE SUCCESSFULLY" 
PRINT "REPULSED AN ATTACK BY THE UNION UNDER GEN. BURNSIDE." 
GOTO 1150 

PRINT "DEC 31, 1862. 
PRINT “BATTLE.” 
GOTO 1450 

PRINT "HAY 1-6, 1843. THE SOUTH HAD A COSTLY VICTORY AND Lost” 
PRINT "QNE OF THEIR OUTSTANDING GENERALS, ‘STONEWALL’ JACKSON.” 
GOTO 1150 

PRINT "JULY 4, 1863. VICKSBURG WAS A COSTLY DEFEAT FOR THE SOUTH” 
PRINT "BECAUSE IT GAVE THE UNION ACCESS TO THE MISSISSIPPI." 

GOTO 1150 


THE COMBINED CONFEDERATE FORCES UNDER"; 


THE SOUTH UNDER GEN. BRAGG WON A CLOSE "; 


A SOUTHERN HISTAKE BY GEN. LEE AT "3 

PRINT “GETTYSBURG” 

PRINT "COST THEM ONE OF THE HOST CRUCIAL BATTLES OF THE WAR.” 

GOTO 1150 

PRINT "SEPT. 15, 1863. CONFUSION IN A FOREST NEAR CHICKANAUGA LED” 
PRINT "TO A COSTLY SOUTHERN VICTORY." 

GOTO 1150 

PRINT "NOV. 25, 1863. AFTER THE SOUTH HAD SIEGED GEN. ROSENCRANS’” 
PRINT “ARMY FOR THREE NONTHS, GEN. GRANT BROKE THE SIEGE.” 

GOTO 1150 

PRINT "HAY 5, 1864, GRANT’S PLAN TO KEEP LEE ISOLATED BEGAN TO” 
PRINT "FAIL HERE, AND CONTINUED AT COLD HARBOR AND PETERSBURG." 
GOTO 1150 

PRINT "AUGUST, 1844, SHERNAN AND THREE VETERAN ARMIES CONVERGED” 
PRINT "ON ATLANTA AND DEALT THE DEATH BLOW TO THE CONFEDERACY." 
GOTO 1150 

END 


Inthis game, you are fighting a small- 
scale war with the computer. You have 
72,000 troops which you first must 
distribute among your Army, Navy, and 
Air Force. You may distribute them in 
any way you choose as long as you 
don’t usé more than 72,000. 

You then attack your opponent (the 
computer) and input which service and 
the number of men you wish to use. 
The computer then tells you the 
outcome of the battle, gives you the 
current statistics and allows you to 
determine your next move. 

After the second battle, it is decided 
from the total statistics whether you 
win or lose or if a treaty is signed. 

This program was created by Bob 
Dores of Milton, Massachusetts. 
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COMBAT 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


TAM AT WAR WITH YOU, 
WE HAVE 72000 SOLDIERS APIECE, 
DISTRIBUTE YOUR FORCES. 


HE you 
ARKY 30000 % 25000 
NAVY 20000 ? 25000 
A.F. 22000 ? 22000 


YOU ATTACK FIRST. TYPE 1 FOR ARNY 2 FOR NAVY 

AND 3 FOR AIR FORCE. 

73 

HOU NANY NEN 

7 22000 

YOU WIPED OUT ONE OF MY ARMY PATROLS, BUT I DESTROYED 
2 NAVY BASES AND BOMBED 3 ARMY BASES. 


You ME 
ARKY 6250 20000 
NAVY 8333 20000 
AF. 22000 22000 


WHAT IS YOUR NEXT MOVE? 

ARMY=1 NAVY=2 AIR FORCE=3 

7g 

HOW MANY WEN 

7? 20000 

NY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT 
YOUR COUNTRY IN SHAMBLES. 


FROM THE RESULTS OF BOTH OF YOUR ATTACKS, 
YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES You 
RIGHT FOR PLAYING THIS STUPID GAME11! 


P 
Pp 
P 
P 
P 
P 
P 
I 
P 


sO CONE OF OU am Gh 


RINT TAB(33);"COMBAT" 

RINT TABCIS)S"CREATIVE COMPUTING HORRISTOUN, NEW JERSEY" 
RINT: PRINT: PRINT 

RINT "I AM AT UAR WITH YOU.": PRINT WE HAVE 72000 SOLDIERS APIECE." 
RINT “DISTRIBUTE YOUR FORCES." 
RINT "ME", "YOU" 
RINT "ARHY",30000, 
NPUT A 
RINT "NAVY" 20000, 

INPUT B 
PRINT “A.F.",22000, 

INPUT C 

IF A+B+C>72000 THEN 5 
D=30000 
£=20000 
F=22000 
PRINT “YOU ATTACK FIRST. TYPE 1 FOR ARMY 
PRINT "AND 3 FOR AIR FORCE." 
INPUT Y 
PRINT “HOU MANY HEN“ 

INPUT X 

IF X<0 THEN 20 
ON Y GOTO 100,200,300 

If X>A THEN 20 

IF X<A/3 THEN 120 

IE X<2e0/3 THEN 150 

GOTO 270 

PRINT "YOU LOST";X:"NEN FROM YOUR ARKY." 
AZINT(A-X} 

GOTO 500 

PRINT “YOU LOST"SINT(X/3) "HEN BUT I LOST’ SINT(2#0/3) 
ASINT(A-X/3) 

D=0 

GOTO 500 

IF X>B THEN 20 

IF X<E/3 THEN 230 

IF X<2#E/3 THEN 250 

GOTO 270 

PRINT "YOUR ATTACK WAS STOPPED!" 

BELNT(B~X) 

GOTO 500 

PRINT "YOU DESTROYED" INT(2#E/3)2"OF MY ARMY” 
E=INT(E/3) 

GOTO 500 

PRINT “YOU SUNK 1 OF HY PATROL BOATS BUT I WIPED OUT 2” 
PRINT "OF YOUR A.F. BASES AND 3 ARHY BASES.” 
ASENT(A/3) 

CeINT(C/3) 

EsINT(2#E/3) 

GOTO 500 

IF X>C THEN 20 

IF X<C/3 THEN 350 

IF X<2*C/3 THEN 370 

GOTO 380 

PRINT “YOUR ATTACK WAS WIPED OUT." 

CeINT(C-X) 

B0TO 500 

PRINT "WE HAD A DOGFIGHT~ YOU WON- AND FINISHED YOUR MISSION." 
D=INT(2#D/3) 

E=INT(E/3) 

FEINT(F/3) 

GOTO 500 


2 FOR NAVY" 
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380 
381 
385 
39? 
390 
500 
501 
510 
520 
530 
1000 
1010 
1020 
1030 
1040 
1045 
1050 
1400 
1810 
1415 
1616 
1617 
1830 
1635 
1640 
1700 
1710 
1720 
1750 
1751 
1755 
1760 
1765 
1770 
17? 
1775 
1780 
1790 
1800 
1810 
1820 
1830 
1831 
1935 
1837 
1840 
1945 
1850 
1851 
1860 
2000 
2004 
2002 
2005 
2006 
2007 
2008 
2010 
2012 
2015 
2016 
2020 


PRINT "YOU WIPED QUT ONE OF HY ARNY PATROLS, BUT I DESTROYED" 
PRINT "2 NAVY BASES AND BOMBED 3 ARHY BASES.” 

AZINT(A/4) 

BINT(B/3) 

D=INT(2*D/3) 

PRINT 

PRINT, "YOU", "NE" 

PRINT “ARHY",A,D 

PRINT "NAVY" BYE 

PRINT "AJP." CF 


PRINT “WHAT 15 YOUR NEXT MOVE?" 

PRINT "ARMY=! NAVY=2 AIR FORCE=3" 

INPUT 6G 

PRINT "HOU HANY HEN” 

INPUT T 

IF TKO THEN 1030 

ON G GOTO 1400,1700,1800 

IF TOA THEN 1030 

IF T<D/2 THE 1630 

PRINT "YOU DESTROYED MY ARMY!" 

D=0 

GOTO 2000 

PRINT “I WIPED QUT YOUR ATTACK!" 

AZA-T 

GOTO 2000 

IF T>B THEN 1030 

TF TCE/2 THEN 1750 

GOTO 1770 

PRINT “I SUNK 2 OF YOUR BATTLESHIPS, AND MY AIR FORCE” 
PRINT “UIPED OUT YOUR UNGAURDED CAPITOL." 

ABA/4 

B=B/2 

GOTO 2000 

PRINT “YOUR NAVY SHOT DOWN THREE OF HY XIII PLANES," 
PRINT “AND SUNK 3 BATTLESHIPS." 

Fs2*F/3 

E=(E/2) 

GOTO2000 

IF TsC THEN 1030 

IF TOF/2 THEN 1830 

GOTO 1850 

PRINT "HY NAVY AND AIR FORCE IN A CONBINED ATTACK LEFT" 
PRINT "YOUR COUNTRY IN SHAMBLES." 

A=A/3 

BeB/3 

C=C/3 

GOTO 2000 

PRINT "ONE OF YOUR PLANES CRASHED INTO NY HOUSE. 
PRINT “MY COUNTRY FELL APART.” 

GOTO 2010 

PRINT 

PRINT “FROM THE RESULTS OF BOTH OF YOUR ATTACKS," 
IF AtB+C>3/2e(D+E+F) THEN 2010 

IF AtB+C<2/3e(D+E+F) THEN 2015 

PRINT “THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR” 
PRINT "RESPECTIVE COUNTRIES AND LIVE IN PEACE." 

GOTO 2020 

PRINT "YOU WON, OH! SHUCKSIITI* 

GOTO 2020 

PRINT “YOU LOST-1 CONQUERED YOUR COUNTRY. IT SERVES YOU" 
PRINT "RIGHT FOR PLAYING THIS STUPID GAME!!!" 

END 


1 AN DEAD.” 


Craps 


This game simulates the game of 
craps played according to standard 
Nevada craps table rules. That is: 
1.A 7 or 11 on the first roll wins 
2.A 2, 3, or 12 on the first roll toses 
3. Any other number rolled becomes 

your “point.” You continue to roll: if 

you get your point, you win. If you 
rolla 7, you lose and the dice change 
hands when this happens. 

This version of craps was modified 
by Steve North of Creative Computing. 
It is based on an original which 
appeared one day on a computer at 
DEC. 


CRAPS 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


2,3,12 ARE LOSERS 4,5,4,8,9,10 POINTS 
PICK A NUMBER AND INPUT TO ROLL DICE? 1 
INPUT THE AMOUNT GF YOUR WAGER.? 500 

I WILL NOW THROW THE DICE 

7 WATURAL....A WINNER! I}! 

? PAYS EVEN HONEY, YOU WIN 500 DOLLARS 

IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 27 5 
YOU ARE NOW AHEAD $ 500 

INPUT THE AMOUNT OF YOUR WAGER.? 230 

1 VILL NOW THROW THE DICE 

6 POINT I WILL ROLL AGAIN 

5 NO POINT I WILL ROLL AGAIN 

5 NO POINT I WILL ROLL AGAIN 

4°WO POINT I VILL ROLL AGAIN 

7 CRAPS YOU LOSE 
YOU LOSE $ 230 

IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 27 5 
YOU ARE NOW AHEAD $ 270 
INPUT THE AKOUNT OF YOUR WAGER.? 400 

I WILL NOW THROU THE DICE 

9 POINT I WILL ROLL AGAIN 

2.NO POINT I WILL ROLL AGAIN 

10 NO POINT I WILL ROLL AGAIN 

11.NO POINT I WILL ROLL AGAIR 

8 NO POINT I WILL ROLL AGAIN 

6 NO POLAT I WILL ROLL AGAIN 

10 NO POINT 1 WILL ROLL AGAIN 

? CRAPS YOU LOSE 
YOU LOSE # 400 

IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 27 5 
YOU ARE WOW UNDER $ 130 

INPUT THE AKOUNT OF YOUR WAGER.? 500 

T WILL NOW THROU THE DICE 

4 POINT I WILL ROLL AGAIN 

2 HO POINT I WILL ROLL AGAIN 

3 NO POINT I WILL ROLL AGAIN 

6 NO POINT I WILL ROLL AGAIN 

5 NO POINT I WILL ROLL AGAIN 

7 CRAPS YOU LOSE 
YOU LOSE $ 500 

IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2? 5 
YOU ARE NOW UNDER $ 430 

IMPUT THE AKOUNT OF YOUR WAGER.? 630 

1 WILL NOW THROW THE DICE 

3 CRAPS...YOU LOSE 
YOU LOSE 630 DOLLARS 

IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 27 2 
YOU ARE NOW UNDER $ 1260 
TOO BAD, YOU ARE IN THE HOLE. COME AGAIN. 


5 P 
10 

12 

15 

20 

21 

22 

23 

24 

25 

26 

27 

28 

30 

40 

at 

42 

50 

55 

60 

62 

45 

70 

80 

90 

125 
10 
140 
150 
160 
170 
180 
185 
190 
195 
196 
197 
198 
200 
205 
206 
210 
21 
220 
230 
an 
232 
240 
250 
235 
260 
270 
280 
290 
271 
292 
293 
300 
310 
att 
di2 
313 
320 
330 
331 
332 
333 
334 
335 
336 
337 
338 
340 
gat 
342 
343 
350 
351 
353 
354 
335 
340 


RINT TAB(33) ¢°CRAPS" 
PRINT TAB(15);"CREATIVE COMPUTING NORRISTOWN, NEU JERSEY" 
PRINTsPRINT PRINT 
LET R=0 
PRINT “2,3,12 ARE LOBERS 4,5,6,8%9,10 POINTS" 
LET T=1 
PRINT “PICK A NUMBER AND INPUT TO ROLL DICE"; 
INPUT Z 
LET X=(RND(O)) 
LET T =T#1 
If T<=Z GOTO 24 
PRINT"INPUT THE AMOUNT OF YOUR WAGER.“; 
INPUT F 
PRINT “ I WILL NOW THROW THE DICE" 
LET E=INT(7#RNDGH)) 
LET S=INT(7#RND(1)} 
LETX=E4S 
IF X=? GOTO 180 
IF X=11 GOTO 180 
IF X=1 GOTO 40 
IF X=2 GOTO 195 
IF X=0 GOTO 40 
IF X=2 GOTO 200 
IF X=3 GOTO 200 
IF X=12 GOTO 200 
IF X35 GOTO 220 
IF X =6 GOTO 220 
IF X=8 8OTO 220 
IF X=? GOTO 220 
IF X =10 GOTO 220 
IF X=4 BOTO 220 
PRINT X "NATURAL....A WINNER!!! 1" 
PRINT X"PAYS EVEN MONEY, YOU WIN“F" DOLLARS" 
GOTO 210 


PRINT X*SWAKE EYES....YOU LOSE" 
PRINT “YOU LOSE"F "DOLLARS" 

LET F0-F 

GOTO 210 

PRINT X "CRAPS...YOU LOSE” 

PRINT “YOU LOSE*F DOLLARS" 

LET Fed-F 

LET R# RtF 

GOTO 320 

PRINT X “POINT I WILL ROLL AGAIN" 


LET H=INT(7SRND(1)) 

LET Q=INT(7*RNDC1)) 

LETOsHO 

IF 021 GOTO 230 

IF =7 6070 290 

IF O=0 GOTO 230 

IF O=X GOTO 310 

PRINT 0 "RO POINT I WILL ROLL AGAIH” 
GOTO 230 


PRINT O "CRAPS YOU LOSE" 

PRINT “YOU LOSE $"F 

F=0-F 

GOTO 210 

GOTO 320 

PRINT X"A WINNER. 4.0.0. eCONGRATSIPE EINE E" 

PRINT X “AT 2 70 1 ODDS PAYS YOU...LET ME SEE..."2*F "DOLLARS" 


LET F=2+F 

GOTO 210 

PRINT © IF YOU UANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2°; 
INPUT 

IF R<O GOTO 334 

IF R>0 GOTO 336 

IF R= GOTO 338 

PRINT "YOU ARE HOW UNDER $"5-R 

GOTO 340 

PRINT "YOU ARE NOW AHEAD $"R 

GOTO 340 

PRINT "YOU ARE NOW EVEN AT 0" 

IF M=5 GOTO 27 

TFRCOGOTO3S0 

TFR>OG0TO353 

TFR=0G60T0355 

PRINT“TOO BAD, YOU ARE IN THE HOLE. COME AGAIN.” 

GOTOI460 

PRINT"CONGRATULATIONS-~-YOU CAHE OUT A WINNER. CONE AGAIN" 
GOT0360 

PRINT"CONGRATULATIONS-~-YOU CAME OUT EVEN, NOT BAD FOR AN AMATEUR" 
END 
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CUBE is a game played on the facing 
sides of a cube witha side dimension of 
2. A location is designated by three 
numbers — e.g., 1, 2, 1. The object is to 
travel from 1, 1, 1 to 3, 3, 3 by moving 
one horizontal or vertical (not 
diagonal) square at a time without 
striking one of 5 randomly placed 
landmines. You are staked to $500; 
prior to each play of the game you may 
make a wager whether you will reach 
your destination. You lose if you hit a 
mine or try to make an illegal move — 
i.e., change more than one digit from 
your previous position. 

Cube was created by Jerimac Ratliff 
of Fort Worth, Texas. 


CUBE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DO YOU WANT TO SEE THE INSTRUCTIONS? (YES-~1,NO--0) 

1 

THIS IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE 
RANDOM DECISION OF THE COMPUTER. THE FIELD OF PLAY IS A 

CUBE OF SIDE 3. AWY OF THE 27 LOCATIONS CAN BE DESIGNATED 

BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START, 

YOU ARE AUTOHATICALLY AT LOCATION 1,1,1. THE OBJECT OF 

THE GAME IS TO GET TO LOCATION 3,3,3. QNE MINOR DETAIL, 

THE COMPUTER WILL PICK, AT RANDOHK, 5 LOCATIONS AT WHICH 

IT WILL PLANT LAND MINES. IF YOU HIT ONE OF THESE LOCATIONS 
YOU LOSE. ONE OTHER DETAIL, YOU HAY HOVE ONLY ONE SPACE 

IN ONE DIRECTION EACH HOVE. FOR EXAHPLEs FROM 1,1,2 YOU 

MAY HOVE TO 2,1,2 0R 1,1,3. YOU HAY NOT CHANGE 

TWO OF THE NUMBERS ON THE SANE MOVE. IF YOU MAKE AN ILLEGAL 
MOVE, YOU LOSE AND THE COMPUTER TAKES THE HONEY YOU MAY 

HAVE BET ON THAT ROUND. 


ALL YES OR NO QUESTIONS WILL BE ANSWERED BY A 1 FOR YES 
OR A 0 (ZERO) FOR WO. 


WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUMBER 
OF DOLLARS (EXAMPLE: 250) YOU ARE AUTOMATICALLY STARTED WITH 
500 DOLLAR ACCOUNT. 


G00D LUCK 

WANT TO MAKE A WAGER? 
71 

HOW MUCH? 

7 200 


1178 YOUR MOVE 
T1,t,2 
EXT HOVE 


N 
? 
NE 
a 
N 
NEXT HOVE 
1 2,3,3 


#0444 DANGHI REDS 
YOU LOSE 
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SYP 


i! 


YOU NOW HAVE 200 DOLLARS 
DO YOU WANT TO TRY AGAIN? 
a4 
WANT TO NAKE A YAGER? 

4 
HOU MUCH? 
7 100 


ITS YOUR HOVE 

71,2,1 

NEXT HOVE 

72,251 

NEXT HOVE 

7 2,2,2 

NEXT HOVE 

7 2,3,2 

NEXT MOVE 

72,3,3 

NEXT HOVE 

73,3,3 

CONGRATULATIONS 

YOU NOU HAVE 300 DOLLARS 
DO YOU WANT TO TRY AGAIN? 
70 

TOUGH LUCK 


GOODBYE 


10 PRINT TAB(34) "CUBE" 
20 PRINT TAB(19) "CREATIVE CONPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT : PRINT : PRINT 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
230 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
4to 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
350 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
690 
690 
700 
710 
720 
730 
740 
7350 
760 
770 
780 
790 
860 
810 
820 
830 
840 
850 
840 
870 


PRINT"DO YOU WANT TO SEE THE INSTRUCTIONS? (YES--1,N0--0)" 
INPUT B7 

IF B7=0 THEN 370 

PRINT" THIS IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE" 
PRINT"RANDOM DECISION OF THE COMPUTER. THE FIELD OF PLAY IS A" 
PRINT"CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED" 
PRINT"BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START," 
PRINT"YOU ARE AUTOMATICALLY AT LOCATION 1,1,1. THE OBJECT OF" 
PRINT"THE GAME IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL," 
PRINT" THE COMPUTER WILL PICK, AT RANDOM, 5 LOCATIONS AT WHICH" 
PRINT"IT WILL PLANT LAND HINES. IF YOU HIT ONE OF THESE LOCATIONS 
PRENT"YOU LOSE. ONE OTHER DETAIL, YOU MAY HOVE ONLY ONE SPACE " 
PRINT"IN ONE DIRECTION EACH MOVE. FOR EXAMPLE: FROM 1,1,2 YOU" 
PRINT“HAY HOVE TO 2,1,2 OR t,1,3. YOU MAY NOT CHANGE” 
PRINT"TUO OF THE NUMBERS ON THE SAME MOVE. IF YOU NAKE AN ILLEGAL 
PRINT*HOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU MAY" 
PRINT"HAVE BET ON THAT ROUND." 

PRINT 

PRINT 

PRINT"ALL YES OR NO QUESTIONS WILL BE ANSWERED BY A 1 FOR YES" 
PRINT"OR AO (ZERO) FOR NO." 

PRINT 

PRINT"WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUHBER® 
PRINT"OF DOLLARS (EXAMPLE: 250) YOU ARE AUTOMATICALLY STARTED WITH 
PRINT"500 DOLLAR ACCOUNT." 

PRINT 

PRINT"GOOD LUCK" 

LET A1=500 

LET ASINT(3#(RND(X))) 

IF AC>O THEN 410 

LET Azg 

LETB=INT(S*(RND(X))) 

IFB<>OTHEN4 40 

LET Be2 

LETC=INT(3*(RND(X))) 

IFECDOTHEN4 70 

LETC#3 

LETD=INT(3*(RND(X))) 

IFD<>OTHENSOO 

LETD=1 

LETE=INT(3#(RND(X))) 

TFECOOTHENS3O 

LETE=3 

LETF=INT(3#(RND(X))) 

TFFCOOOTHENS 40 

LETF=3 

LETG=ENT(34(RND(X))) 

TFGC>OTHENS 90 

LETG=3 

LETH=INT (J#CRND(X))) 

IFHC>OTHEN620 

LETH=3 

LETIZENT(3#(RND(X)}) 

TFICOTHEN650 

LETI=2 

LETJ=INT(3#(RND(X))) 

IF J<>OTHENGB0 

LETJ=3 

LETK=INT(3#(RND(X))) 

TFKC>OTHEN710 

LETK=2 

LETL=INT(3*(RND(X))) 

TFLQ>OTHEN7 40 

LETL=3 

LETH INT (3#(RND(X))) 

TFAS>OTHEN770 

LETH=3 

LETN=INT(3*#(RND(X))) 

TFNC>OTHENS 00 

LET N=1 

LET O=INT (3#(RND(X))) 

IF 0 <>0 THEN 830 

LET 0=3 

PRINT “UANT TO HAKE A WAGER?" 

INPUT Z 

IF Z=0 THEN 920 

PRINT "HOW MUCH?” 

INPUT Z1 
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876 

880 

870 

900 

910 

920 

930 

940 

950 

9760 

970 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1tt0 
1120 
1130 
1140 
1150 
1140 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
13460 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
4450 
1460 
1470 
1480 
14970 
1300 
1510 
1520 
1522 
1525 
1330 
1540 
1550 
1560 
1570 
1980 
1590 
1600 
1610 
1620 
1630 
1640 


IF AI<Z1 THEN 1522 
LET Ut 

LET X=1 

LET Y=1 

PRINT 

PRINT "ITS YOUR HOVE" 
INPUT P,O,R 

IFP>W+1 THEN1030 
IFP=U+1 THEN1000 
IFOX4+1 THEN1030 

IF G=(X+1) THEN 1010 
IF R >(Y#1) 
BOTO 1050 


THEN 1030 


IF Q@>= X+1 THEN 1030 
IF R>=Y+! THEN 1030 
GOTO 1050 

PRINT “ILLEGAL MOVE", “YOU LOSE" 
GOTO 1440 

LET W=P 

LET X=@ 

LET Y=R 

IF P=3 THEN 1100 

GOTO 1130 

IF @=3 THEN 1120 

GOTO 1130 

IF R=3 THEN 4530 

IF P=A THEN 1150 

GOTO 1180 

IF G=B THEN 1170 

GOTO 1180 

IF R=C THENT400 

IF P=D THEN 1200 

GOTO 1230 

IF G5E THEN 1220 

GOTO 1230 

IF R=F THEN 1400 

IF P=6 THENI250 

GOTO 1280 

IF G=H THEN1270 

GOTO 4280 

IF R=ITHEN 1400 

IF P=J THEN 1300 

GOTO 1330 

IF @=K THENT320 

GOTO 1330 

IF R=L THEN 1440 

IF P=4 THEN 1350 

GOTO 1380 

IF Q=N THEN 1370 

GOTO 1380 

IF R=O THEN1400 

PRINT "NEXT NOVE" 

GOTO 930 

PRINT "+444 44¢BANGHEo RE” 
PRINT “YOU LOSE" 

PRINT 

PRINT 

IF 220 THEN 1580 
PRINT 

LET Z2=A1-Z1 

IF Z2>0 THEN 1500 
PRINT “YOU BUST" 

GOTO 1610 

PRINT " YOU NOW HAVE"? Z2: "DOLLARS" 
LET Al=Z2 

GOTO 1580 

PRINT" TRIED TO FOOL ME; BET AGAIN"; 
GOTO 870 

PRINT" CONGRATULATIONS" 
IF Z=0 THEN 1580 

LET Z2=A1+Z1 

PRINT "YOU NOW HAVES 223 "DOLLARS" 
LET A1=Z2 

PRINT’DO YOU WANT TO TRY AGAIN?" 
INPUT S$ 

IF S=1 THEN 380 

PRINT “TOUGH LUCK" 
PRINT 

PRINT " GOODBYE" 

END 


Depth Charge 


Inthis program you are captain of the 
destroyer USS Computer. An enemy 
submarine has been causing trouble 
and your mission is to destroy it. You 
may select the size of the “cube” of 
water you wish to search in. The 
computer then determines how many 
depth charges you get to destroy the 
submarine. 

Each depth charge is exploded by 
you specifying a trio of numbers; the 
first two are the surface coordinates 
(X,Y), the third is the depth. After each 
depth charge, your sonar observer will 
tell you where the explosion was 
relative to the submarine. 

Dana Noftle wrote this program 
while a student at Acton High School, 
Acton, Massachusetts. 


DEPTH CHARGE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DEPTH CHARGE GAME 

DIMENSION OF SEARCH AREA? 50 

YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER 
AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR 
HISSION IS TO DESTROY IT. YOU HAVE 6 SHOTS. 
SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A 

TRIO OF NUMBERS ~~ THE FIRST THO ARE THE 

SURFACE COORDINATES; THE THIRD IS THE DEPTH. 

GOOD LUCK } 


TRIAL # 1? 25,25,25 
SONAR REPORTS SHOT WAS SOUTHEAST AND TOO LOW. 


TRIAL # 2 ? 12,35,12 
SONAR REPORTS SHOT WAS SOUTHWEST AND TOO LOU. 


TRIAL # 3 7 18,43,5 
SONAR REPORTS SHOT WAS NORTHEAST AND TOO HIGH. 


TRIAL # 4 7 15,39,8 
SONAR REPORTS SHOT WAS EAST AND TOO LOW. 


TRIAL #5 ? 14,39,6 


BOOwW ! ! YOU FOUND IT IN 5 TRIES! 


ANOTHER GAME (Y OR NOTH 
OK. HOPE YOU ENJOYED YOURSELF. 
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DEPTH CHARGE GAKE 
DIMENSION OF SEARCH AREA? 10 


YOU ARE THE CAPTAIN OF THE DESTROYER USS COHPUTER 
AN ENEXY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR 
MISSION IS TO DESTROY IT. YOU HAVE 4 SHOTS. 
SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A 

TRIO OF NUMBERS ~~ THE FIRST TWO ARE THE 

SURFACE COORDINATES; THE THIRD IS THE DEPTH. 


GOOD LUCK | 


TRIAL # 1°? 5,5,5 
SONAR REPORTS SHOT WAS NORTH AND TOO HIGH. 


TRIAL #2? 5,2,7 
SONAR REPORTS SHOT WAS SOUTH AND TOO HIGH. 


TRIAL #3? 5,3,9 
SONAR REPORTS SHOT WAS SOUTH AND TOO LOW. 


TRIAL #47 5,4,8 


BOO ! ! YOU FOUND IT IN 4 TRIES! 


2 PRINT TAB(30);°DEPTH CHARGE” 

4 PRINT TABCIO); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
6 PRINT: PRINT: PRINT 

10 PRINT "DEPTH CHARGE GAME": PRINT 

20 INPUT "DIMENSION OF SEARCH AREA"SG: PRINT 

30 NEINT(LOG(G)/LOG(2)) +1 

40 PRINT "YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER" 
SO PRINT "AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR" 
60 PRINT "MISSION IS TO DESTROY 17. YOU HAVE"SN; "SHOTS." 
70 PRINT "SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A” 

80 PRINT "TRIO OF NUMBERS -- THE FIRST TWO ARE THE” 

90 PRINT “SURFACE COORDINATES; THE THIRD IS THE DEPTH." 

100 PRINT : PRINT "GOOD LUCK i": PRINT 

110 ASINT(G#RND(T)) & BEINT(G*RND(T)) ¢ C=INT(G*RND(1)) 

120 FOR D=1 TON : PRINT ¢ PRINT “TRIAL H"3D} : INPUT X,Y,Z 
130 TF ABS(X~AD+ABS(Y"B)+ABS(Z-C)=0 THEN 300 

140 GOSUB 900 : PRINT : NEXT D 

200 PRINT : PRINT "YOU HAVE BEEN TORPEDOED! ABANDON SHIP!" 
210 PRINT "THE SUBHARINE YAS AT"SA;","ZBe","5C 2 GOTO 400 
300 PRINT : PRINT "BOOM ! $ YOU FOUND IT IN";D;"TRIES!" 
400 PRINT : PRINT: INPUT "ANOTHER GANE (Y OR N)"sAS 

410 IF AS="Y" THEN 100 

420 PRINT "OK. HOPE YOU ENJOYED YOURSELF." : GOW 400 

500 PRINT "SONAR REPORTS SHOT WAS "; 

StO IF Y>B THEN PRINT "NORTH"; 

520 IF Y<B THEN PRINT "SOUTH"; 

530 IF X>A THEN PRINT "EAST"} 

540 IF X<A THEN PRINT "WEST"? 

550 IF Y<>B OR X<>A THEN PRINT ° AND"; 

3460 IF Z>€ THEN PRINT " TOG LOU." 

570 IF Z2<C THEN PRINT " TOG HIGH." 

580 IF Z=C THEN PRINT " DEPTH OK." 

570 RETURN 

600 END 


This program fills an 82x11 piece of 
paper with diamonds (plotted on a 
hard-copy terminal, of course). The 
program asks for an odd number to be 


input in the range 5 to 31. The 
diamonds printed will be this number 
of characters high and wide. The 
number of diamonds across the page 
will vary from 12 for 5-character wide 
diamonds to 1 for a diamond 31- 
characters wide. You can change the 
content of the pattern if you wish in 
Statement 6. 

The program was written by David 
Ahl of Creative Computing. 


PRINT TAB(S3) ;“DIANOND" 
PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
PRINTEPRINTsPRINT 
PRINT “FOR A PRETTY DIAMOND PATTERN,” 
INPUT "TYPE IN AN ODD NUMBER BETWEEN 5 AND 21";RsPRINT 
Q=INT(60/R) sAS="CC° 
FOR L=t 10 0 

KagsY=Rr1Z=2 

FOR N=X TO Y STEP Z 

PRINT TABC(R-N)/2)3 

FOR Hat To Q 

C1 

FOR A=1 TON 

IF COLENCA$) THEN PRINT “'"3:G0TO 50 
PRINT WIDS(AS,C,1); 

C=C+1 

NEXT A 

IF M=Q THEN 60 

PRINT TABCREN+(R-N)/2); 

NEXT & 

PRINT 

WEXT W 

IF X<>1 THEN 95 

XeR-22 Vel 325-2 

GoTo 20 

NEXT L 

END 


oo mnrun = 


MI 
was oO 


t 


0 ONO CACAO OA Gi Gi Gi GI 
UW OOK UMW OO eS 


250 
won 


DIAMOND 
CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 


FOR A PRETTY DIAHOND PATTERN, 
TYPE IN AN ODD NUMBER BETWEEN 5 AND 217 15 


c Cc C c 
cct cc! cc! CC! 
ccttt CCH cel! Coli 
Ceresy! cciret! Ccititt CCritt 
Coreeaes CCrliatet COEESEEL CCisebtdy 
CCHELEa dade COHLELUES ES CCRLUEEEat! cclilibiita 
COUEUEEHVVIEE CONLEEOVESEE! COEEVGESEEYE! Coetittsaieee 
COHLULEEVHUTEPECCHIECUELEEEETECCEELT TENE EELITOCCHILET REET EEE! 
COULUEEHEEUE COESEEGEUEECL COUERVHEEEEEL COLLELEbdiege 
COHELedditl Cerereqaany COlliitliny Cetstyerise 
ccreadiy COiltiale COHltialy Ccirsiie 
ccriirt COHity) CCHttas CCHrydt 
Colt! CCl! Coll! cciis 
ce! ce! cc! ce! 
c C c c 
Cc C Cc c 
CC! cc! ce! ctl 
Celis cel Cecil! Colt 
cCeryiyd CCiiit! celine ccritd) 
CCHELIEt cchitiay) CCiteniis Colitily) 
COHliiieee) Ccrtiiiiit! COMeehbaedd CCHrydteiny 
CCHEPVEEEIEEE COLEEELVELEEL COLTEEEEELITE Codetabeetere 
COUPELETERVESEECOHEPEEEEELETEICCHLELELEELUEEICOCEEELteritedel 
COUETELELUDEE COHLELERDEELE COELEELEEdGed Cobfeeabenigs 


COATT! 
Ceri 


COMEEabbee 
Celieatel 


COMMIT de 
ecthiietl 


COMlehatedy 
Ccrieeeel 


CCHittt COlyidt Coliite cCOHiit 
cei CCH! Ceci ccllt 
cc cei CC! cc! 
Cc C C c 
Cc C C c 
cc! Ce} ct! cc! 
Coli cel! CCirt ccit! 
coli Corhiel CCitte cCClitis 
ccererid CCUlelit! cciiiiryd COllitetl 
COLEHidiide COrrttibidy coriietiin Cculeisvite 
COHULELETELEE! COLELEEV EEE! COELbdetbate COELEEGeElaey 
COULLEPELIEPTEEICOPUELLCEEETUVECCHELELEEEEETEICCHEEEELervitae 
COHLEEEEEELES CCEELLELLEEEE CoOLlteerbbegt) cotegeteqguya 
COeliledtel COHHLE Ets CCltLEtbed COs ebyt te 
Cereleett COlllitel CCHetlaes COHiya etl 
CCHHttl cCiid CCHETEt coibide 
COlt coli ~ cere CCH! 
Cel CCl Ce! cc! 
c c C C 
c c C c 
cc) cc! cc! cc! 
cet cells Colt! Colil 
COiettt Cotith COME! ecrithy 
ccereril COttiitat COMIHE Cetlyeie) 
COMedditide Colliideety cereliieeay COHledtedes 
COVLIELEEdtrh CONEEEebetde) COLEHEdG Pledge! Couleucaueeny 
COLLLLECHEEECUICCHPLEPUETINENICOHELICUL ee terigegureriagregagg 
COMLEEEEHIVE! COHUELIGYEEEE COELEEETEEEEE Cordeeeeriee 
COrilEiital COULLELIey COMPETE Eede Cerliisigds 
Collittee ccridiiy) COHlMHLEd Ceieeryyy 
cColises echt COHiytl cchiill 
CCiit cc cell Celli 
cc! cc! cei cc! 
C C C C 


Not exactly a game, this program 
simulates rolling a pair of dice a large 
number of times and prints out the 
frequency distribution. You simply 
input the number of rolls. It is in- 
teresting to see how many rolls are 
necessary to approach the theoretical 


distribution: 

2 1/36 2.7777 .. % 

3 2/36 5.5555... .% 

4 3/36 8.3333 .. .% 
etc. 


Daniel Freidus wrote this program 
while in the seventh grade at Harrison 
Jr-Sr High School, Harrison, New York. 


DICE 
CREATIVE COMPUTING NORRISTOWN, NEW JERSEY 


THIS PROGRAM SIMULATES THE ROLLING OF A 

PAIR OF DICE. 

YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER TO 
“ROLL’ THE DICE. WATCH OUT, VERY LARGE NUMBERS TAKE 

A LONG TIHE. IN PARTICULAR, NUMBERS QVER 5000. 


HOW MANY ROLLSY 10000 

2 PRINT TAB(34) ; “DICE” 
4 PRINT TABCIS)s"CREATIVE COMPUTING NORRISTOWN, NEW JERSEY" TOTAL SPOTS NUMBER OF TIMES 
& PRINTSPRINTSPRINT 2 312 
10 DIN F(12) 3 343 
20 REM DANNY FREIDUS 4 820 
30 PRINT “THIS PROGRAN SIMULATES THE ROLLING OF A" 5 1148 
40 PRINT “PAIR OF DICE." 4 1395 
50 PRINT "YOU ENTER THE NUMBER OF TIHES YOU UANT THE COMPUTER TO” ? 1480 

8 


60 PRINT "/ROLL’ THE BICE. WATCH GUT, VERY LARGE NUMBERS TAKE" 1330 
70 PRINT "A LONG TIHE. IW PARTICULAR, NUHBERS OVER 5000." 9 1125 
a0 FOR Qf TO 12 10 aat 
90 F(B)=0 rr 542 
100 NEXT @ 12 264 
110 PRINT2PRINT “HOW HANY ROLLS"; 

120 INPUT X TRY AGAIN? YES 

130 FOR S=1 TO X 

140 ASINT(O#RAD( 141) HOW HANY ROLLS? 100 
150 BeINT(QeRND(1)+4} 

160 REAtB TOTAL SPOTS NUMBER OF TIMES 
170 FCRD@F(RI41 2 1 
180 NEXT § 3 6 
185 PRINT 4 9 
190 PRINT “TOTAL SPOTS", "HUMBER OF TIMES" 5 9 
200 FOR v=2 TO 12 é 14 
210 PRINT ¥,F(W) ? 22 
220 WEXT V 8 16 
222 PRINT:PRINT “TRY AGAIN"; 9 9 
223 INPUT Z8 10 "1 
224 IF Z$="VES" THEN 80 " 1 
240 END 12 0 
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Digits 


The player writes down a set of 30 TEN NUMBERS, PLEASE? 0,1,0,2,0,0,0,2,1,1 
numbers (0, 1, or 2) at random prior to MY GUESS YOUR NO. RESULT NO. RIGHT 
playing the game. The computer 
program, using pattern recognition 2 0 WRONG ? 
techniques, attempts to guess the next ; ) ed ; 
number in your list. “ 2 2 RIGHT 10 

The computer asks for 10 numbers at 0 r) RIGHT 1 
a time. It always guesses first and then wie " 
examines the next number to see if it 1 3 URONG i" 
guessed correctly. By pure luck (or 1 1 RIGHT 12 
chance or probability), the computer 1 1 RIGHT 13 


ought to be right 10 times. Itis uncanny 1 GUESSED MORE THAN 1/3 OF YOUR NUMBERS. 


how much better it generally does than 1 UIA. 
that! 
This program originated at Dart- DO YOU WANT TO TRY AGAIN (1 FOR YES, 0 FOR NO)? 1 


mouth, original author unknown. TEN NUMBERS, PLEASE? 0,0,0,0,0,0,1,1,1,1 


DIGITS MY GUESS YOUR NO. RESULT NO. RIGHT 
CREATIVE COHPUTING HORRISTOWN, NEW JERSEY 0 a RIGHT 1 
2 r) URONG 1 
1 0 uRONG 1 
2 0 URONG 1 
THIS 19 @ GAME OF GUESSING. 2 6 WRONG 1 
FOR INSTRUCTIONS, TYPE “1°, ELSE TYPE “0°? 1 2 0 URONG 1 
0 1 uRONG 1 
PLEASE TAKE A PIECE OF PAPER AND WRITE DOWN 2 1 URONG 1 
THE DIGITS °0’, “1%, OR “2° THIRTY TINES AT RANDOM. 0 1 URONG 1 
ARRANGE THEM IN THREE LINES OF TEN DIGITS. 2 1 WRONG } 
I WILL ASK FOR THEH 10 AT A TIME. 
I WILL ALUAYS GUESS THEM FIRST, AND THEN LOOK AT YOUR TEN NUMBERS, PLEASE? 2,2,2,1,1,1,1,1, 191 
NEXT NUMBER TO SEE IF I WAS RIGHT. BY PURE LUCK 
1 OUGHT TO BE RIGHT 10 TINES. BUT I HOPE TO DO BETTER HY BUESS YOUR NO. RESULT NO. RIGHT 
THAN THAT #eee8 
0 2 WRONG 1 
t 2 WRONG 1 
1 2 RONG 1 
TEN NUMBERS, PLEASE? 1,0,2,1,1,0,1,1,2)2 2 1 URONG 1 
1 1 RIGHT 2 
MY GUESS YOUR NO. RESULT NO. RIGHT 2 1 WRONG 2 
0 1 uRONG 2 
0 1 RONG 0 2 1 uRONG 2 
0 0 RIGHT 1 2 1 RONG 2 
, 2 URONG 1 t 1 RIGHT 3 
Q 1 URONG 1 
1 1 RIGHT 2 TEN NUMBERS, PLEASE? 0,2,0,2,1,0,1,0,1,1 
' 0 URONG 2 
0 1 URONG 2 MY GUESS YOUR NO. RESULT NO. RIGHT 
1 1 RIGHT 3 
0 2 RONG 3 2 0 URONG 3 
0 2 URONG 3 0 2 RONG 3 
2 0 WRONG 3 
TEN NUMBERS, PLEASET 2,0,2,0,1,1,2,0,0,0 2 2 RIGHT 4 
2 1 WRONG 4 
HY GUESS YOUR WO. RESULT HO. RIGHT 1 ) URONG 4 
0 1 URONG 4 
2 2 RIGHT 4 1 0 WRONG 4 
2 0 WRONG 4 0 1 URONG 4 
2 2 RIGHT 5 1 1 RIGHT 5 
0 0 RIGHT 4 
1 1 RIGHT 7 I GUESSED LESS THAN 1/3 OF YOUR NUHBERS. 
t 1 RIGHT a YOU BEAT ME. CONGRATULATIONS so¢2% 
2 2 RIGHT 9 
2 0 RONG 9 DO YOU WANT TO TRY AGAIN (1 FOR YES, 0 FOR NO)? 0 
2 0 WRONG 9 
2 0 URONG 9 THANKS FOR THE GAHE. 
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10 PRINT TAB(33);"DIGITS" 

20 PRINT TAB(I5);"CREATIVE COMPUTING NORRISTOUN, NEW JERSEY" 
30 PRINT:PRINTSPRINT 

210 PRINT*THIS IS A GAHE OF GUESSING." 

220 PRINT “FOR INSTRUCTIONS, TYPE “1°, ELSE TYPE “0°"; 
230 INPUT E 

240 IF E=0 THEN 360 

250 PRINT 

260 PRINT “PLEASE TAKE A PIECE OF PAPER AND WRITE DOWN" 
270 PRINT “THE DIGITS “0°, “1”, OR “2° THIRTY TIMES AT RANDON,” 
280 PRINT “ARRANGE THEM IN THREE LINES OF TEN DIGITS.” 

290 PRINT "I WILL ASK FOR THEN 10 AT A TIME." 

300 PRINT “I WILL ALWAYS GUESS THEN FIRST, AND THEN LOOK AT YOUR" 
310 PRINT “NEXT NUMBER TO SEE IF I WAS RIGHT. BY PURE LUCK" 
420 PRINT “I GUGHT TO BE RIGHT 10 TIMES. BUT 1 HOPE TO DO BETTER" 
330 PRINT “THAN THAT seoee* 

340 PRINT: PRINT 

360 READ A,B,C 

370 DATA 0,1,3 

300 DIK W(26,2),K(2,2),1(8,2) 

400 FOR I=0 TO 26: FOR J=0 TO 2: H(1,J)=12 NEXT J: NEXT I 
410 FOR 120 TO 2: FOR J=O TO 22 K(I,J)=9s NEXT Js NEXT I 

420 FOR 1=0 10 B: FOR Je0 10 2: LCI,J)=3s NEXT Js NEXT I 

450 L(0,0)82: L(A, 1822 £08, 2)=2 

480 72262 2128; 2222 

510 X=0 

520 FOR T=1 10 3 

530 PRINT 

540 PRINT “TEN NUMBERS, PLEASE"; 

550 ENPUT NC1),N(2), (3) NAD HOS) NCO) -HC7) NCB) NCP) N10) 
560 FOR I= 10 10 

570 WeN(1)-1 

580 IF WeSGN(W) THEN 420 

590 PRINT “ONLY USE THE DIGITS ‘0°, “1°, OR “2°." 

400 PRINT “LET’S TRY AGAIN."s GOTO 530 

620 NEXT I 

630 PRINT: PRINT “HY GUESS”,"YOUR NO.", "RESULT", °NO. RIGHT" sPRINT 
660 FOR ust TO 10 

670 WEN(U)s S=0 

490 FOR J=0 10 2 

700 SimAeK(Z2,J)#BOL (Zt, J)+COH(Z, J) 

710 IF S>St THEN 740 

720 IF S<St THEN 740 

230 IF RND(1)<.5 THEN 760 

740 S=S1: GJ 

760 HEXT J 

770 PRINT 6,N(U), 

780 IF GeN(W) THEN 910 

790 PRINT “WRONG",X 

800 GOTO 880 

Q10 X=X+1 

820 PRINT "RIGHT", X 

830 H(Z,Rd2H(Z,ND41 

840 L(Z1,NDeLCZ1,RD+T 

O50 K(Z2,H)=K(Z2,N)+1 

860 25Z-INT(Z/9)99 

870 Z=3eZ+N(L) 

880 Z1=Z~INT(Z/9)#9 

890 Z2=N(U) 

700 WEXT U 

910 NEXT T 

920 PRINT 

930 IF X>10 THEN 980 

940 IF X10 THEN 1010 

950 PRINT “I GUESSED EXACTLY 1/3 OW YOUR NUMBERS." 

960 PRINT “IT 15 A TIE GAME.” 

970 GOTO 1030 

980 PRINT “I GUESSED MORE THAN 1/3 OF YOUR NUMBERS," 
990 PRINT “I WIN.": FOR O21 TO 10: PRINT CHRS(7)¢2 NEXT @ 
1000 GOTO 1030 

1010 PRINT “I GUESSED LESS THAN 1/3 OF YOUR NUMBERS." 
1020 PRINT “YOU BEAT HE. CONGRATULATIONS +0924" 

1030 PRINT 

1040 PRINT “DO YOU WANT TO TRY AGAIN (1 FOR YES, 0 FOR NO)"; 
1060 INPUT X 

1070 IF X=1 THEN 400 

1080 PRINT: PRINT "THANKS FOR THE GAHE." 

1090 END 


~—6Even Wins 


This is a game between you and the ao TF YOU UANT HE TO an Pease” FIRST, AND TYPE 
computer. To play, an odd number of 20 
objects (marbles, chips, matches) are TOTAL® 27 
placed in a row. You take turns with the vorave i 2 MARBLES. » 
computer picking up between one and 7 
four objects each turn. The game ends AND WHAT IS YOUR NEXT MOVE, MY TOTAL I5 2 
when there are no objects left, and the 72 
winner is the one with an even number 

: : TOTAL= 23 

of objects picked up. 

Two versions of this game are YOUR TOTAL IS 2 
included. While to the player they T PICK UP 4 HARBLES. 
appear similar, the programming ap- TOTAL® 19 
proach is quite different. EVEN WINS, AND WHAT IS YOUR NEXT HOVE, HY TOTAL 19 6 
the first version, is deterministic — i.e., 74 
the computer plays by fixed, good rules 
and is impossible to beat if you don’t TOTAL 15 
know how to play the game. lt always YOUR TOTAL IS 6 
starts with 27 objects, although you I PICK UP 2 KARBLES. 
may change this in Lines 250, and 1060. TOTAL? 13 
EVEN WINS ts much mare interesting 1, AND HAT IS YOUR NEXT MOVE, HY TOTAL IS 8 
because the computer starts out only 
knowing the rules of the game. Using TOTAL= 12 
simple techniques of artificial in- YOUR TOTAL 18 7 
telligence (cybernetics), the computer 1 PICK UP 1 MARBLES. 
gradually learns to play from its mis- TOTAL= 11 


takes until it plays a very good game. 
After 20 games, the computer is a 
challenge to beat. Variation in the 
human's style of play seems to make TOTAL= 8 
the computer learn more quickly, If you 
plot the learning curve of this program, 


AND WHAT IS YOUR NEXT HOVE, HY TOTAL IS 9 
13 


YOUR TOTAL IS 10 
T PICK UP 1 MARBLES. 


it closely resembles classical human TOTAL? 7 

learning curves from psychological 

experiments. AND WHAT IS YOUR NEXT MOVE, HY TOTAL 1S 10 
Eric Peters at DEC wrote the GAME mM 

OF EVEN WINS. The original author of TOTALS 6 


EVEN WINS is unknown. 
YOUR TOTAL IS 11 
I PICK UP 1 HARBLES. 
EVEN WINS TOTAL= 5 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
AND WHAT IS YOUR NEXT HOVE, HY TOTAL 15 11 


1 
TOTALS 4 
THIS 16 A TWO PERSON GAME CALLED ‘EVEN WINS.” YOUR TOTAL IS 12 
TO PLAY THE GAME, THE PLAYERS NEED 27 WARBLES OR 1 PICK UP 3 MARBLES. 
OTHER OBJECTS ON A TABLE. 2 
TOTAL= 1 
THE 2 PLAYERS ALTERNATE TURNS, WITH EACH PLAYER AND WHAT IS YOUR NEXT HOVE, HY TOTAL IS 14 
RENOVING FROW 1 TO 4 HARBLES ON EACH MOVE. THE GANE V1 
EWDS WHEN THERE ARE NO HARBLES LEFT, AND THE WINNER 
18 THE ONE WITH AN EVEN NUMBER OF MARBLES. THAT I§ ALL OF THE MARBLES. 


MY TOTAL 18 14 YOUR TOTAL IS 13 
THE ONLY RULES ARE THAT (1) YOU MUST ALTERNATE TURNS, 
(2) YOU MUST TAKE BETWEEN t AND 4 MARBLES EACH TURN, T VON. DO YOU WANT TO PLAY 
AHD (3) YOU CANNOT SKIP A TURN. AGAIN? TYPE 1 FOR YES AND O FOR NO. 
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1 PRINT TAB(31);"EVEN WINS" 

2 PRINT TABCI5S); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
3 PRINTSPRINTSPRIAT 

4 Yi=0 


10 

20 

30 

4g 

50 

40 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
$70 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
a0 
320 
330 
340 
330 
340 
370 
380 
370 
400 
410 
420 
430 
440 
4350 
460 
470 
480 
490 
300 
510 
520 
530 
540 
5350 
960 
570 
580 
590 


Wiad 
DIM 4(20),¥(20) 
PRINT ° 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT ° 
PRINT 


THIS IS A TWO PERSON GAME CALLED “EVEN WINS.“" 
“TO PLAY THE GAME, THE PLAYERS NEED 27 MARBLES OR“ 
“OTHER OBJECTS ON A TABLE.” 


THE 2 PLAYERS ALTERNATE TURNS, WITH EACH PLAYER" 
“REMOVING FROM 1 TO 4 MARBLES ON EACH HOVE. THE GANE” 
“ENDS UHEN THERE ARE NO MARBLES LEFT, AND THE WINNER" 
"15 THE ONE WITH AN EVEN NUMBER OF HARBLES.” 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT “ THE ONLY RULES ARE THAT (1) YOU MUST ALTERNATE TURNS," 
PRINT “(2) YOU MUST TAKE BETWEEN 1 AND 4 WARBLES EACH TURN,” 

PRINT "AND (3) YOU CANNOT SKIP A TURN." 

PRINT 

PRINT 

PRINT 

PRINT " TYPE A 1 IF YOU WANT TO GO FIRST, AND TYPE" 

PRINT "A 0 IF YOU WANT ME TO GO FIRST." 

TRPUT C 

IF C=0 THEN 250 

GOTO 1060 

T=27 

H=2 

PRINT “TOTAL="3T 

MIZHI+H 

T=T-H 

PRINT “I PICK UP“; N;°HARBLES." 

IF T=0 THEN 880 

PRINT "TOTALS" 5T 

PRINT 
PRINT " 
INPUT Y 
PRINT 
IF YCt THEN 1160 

IF ¥>4 THEN 1160 

IF Y<=T THEN 430 

PRINT * YOU HAVE TRIED TO TAKE MORE MARBLES THAN THERE ARE* 
PRINT "LEFT. TRY AGAIN." 

GOTO 350 

Yrsyt+y 

TeT-¥ 

If T=0 THEN 880 

PRINT "TOTAL="5T 

PRINT 

PRINT " YOUR TOTAL IS";Y¥1 

IF T<.5 THEN 880 

ReT-OFINT(T/6) 

IF INT(Y1/2)=¥1/2 THEN 700 

IF T<4.2 THEN 580 

IF R>3.4 THEN 620 

HER+1 

HISHITN 

TeT-4 

GOTO 300 

WeT 

Tet 


AND WHAT IS YOUR NEXT MOVE, MY TOTAL IS"3é1 
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600 
610 
620 
630 
640 
$50 
660 
470 
680 
690 
700 
710 
720 
730 
740 
750 
740 
770 
780 
790 
860 
810 
820 
830 
840 
850 
840 
870 
80 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
970 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1150 
1140 
1150 
1140 
1470 
1180 
1190 
1200 
1210 
1220 
1230 


GOTO 830 

REX 250 IS WHERE I WIN. 

IF R<4.7 THEN 6460 

IF RO3.5 THEN 6460 

Hel 

GOTO 670 

H=4 

T=T-M 

AISH1+H 

GOTO 300 

REH T AM READY 10 ENCODE THE STRAT FOR WHEN OPP TOT IS EVEN 
IF R<1.5 THEN 1020 

IF RO5.3 THEN 1020 

HER-1 

NISNI+H 

T=T-4 

IF 1¢.2 THEN 790 

REK 1S # ZERO HERE 

GOTO 300 

REX TS = ZERO HERE 

PRINT "I PICK UP"; HM; "NARBLES." 

PRINT 

GOTO 880 

REM THIS IS WHERE I WIN 

PRINT "I PICK UP"}H; "MARBLES." 

PRINT 

PRINT "TOTAL = 0" 

NUSHI+H 

PRINT ° THAT IS ALL OF THE MARBLES." 

PRINT 

PRINT " WY TOTAL IS" 3Ht;" 
PRINT 

IF INTCME/2)=H1/2 THEN 950 

PRINT * YOU WON. DO YOU WYANT TO PLAY” 

GOTG 740 

PRINT * T WON. DO YOU WANT TO PLAY" 

PRINT "AGAIN? TYPE 1 FOR YES AND O FOR NO.” 
INPUT Al 

IF At=0 THEN 1030 

Hi=0 

Y1=0 

GOTO 200 
GOTO 640 
PRINT 
PRINT “OK. 
GOTO 1230 
T=27 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT * 
INPUT Y 
GOTO 360 
PRINT 
PRINT “THE NUMBER OF HARBLES YOU TAKE MUST BE A POSITIVE" 
PRINT "INTEGER BETWEEN t AND 4," 

PRINT 
PRINT " 
PRINT 
GOTO 350 
END 


YOUR TOTAL IS"; ¥1 


SEE YOU LATER." 


“TOTALS? 31 


UHAT IS YOUR FIRST MOVE?" 


WHAT IS YOUR NEXT NOQVE?" 


GAME OF EVEN WINS 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DO YOU WANT INSTRUCTIONS (YES OR NO)? YES 


THE GAME IS PLAYED AS FOLLOWS: 

AT THE BEGINNING OF THE GAME, A RANDOM NUMBER OF CHIPS ARE 
PLACED ON THE BOARD. THE NUMBER OF CHIPS ALUAYS STARTS 

AS AN ODD NUMBER. ON EACH TURN, A PLAYER HUST TAKE ONE, 
TUO, THREE, OR FOUR CHIPS. THE WINNER IS THE PLAYER WHO 
FINISHES WITH A TOTAL NUMBER OF CHIPS THAT IS EVEN. 

THE COMPUTER STARTS OUT KNOWING ONLY THE RULES OF THE 

GAME. IT GRADUALLY LEARNS TO PLAY WELL. IT SHOULD BE 
DIFFICULT TO BEAT THE COHPUTER AFTER TWENTY GAMES IN A ROU. 


TRY ITUHH4 
1 PRINT TAB(28);"GAHE OF EVEN WINS" 
TO QUIT AT ANY TIE, TYPE A “0” AS YOUR MOVE. 2 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
3 PRINT:PRINT:PRINT 
THERE ARE 21 CHIPS ON THE BOARD. 4 INPUT “DO YOU WANT INSTRUCTIONS (YES OR NO)"sA8 
COMPUTER TAKES 4 CHIPS LEAVING 17 ... YOUR MOVE? 4 5 IF a$="NO" THEN 20 
THERE ARE 13 CHIPS ON THE BOARD. 6 PRINT: PRINT "THE GAME IS PLAYED AS FOLLOWS:" 
COMPUTER TAKES 4 CHIPS LEAVING 9 ... YOUR MOVE? 2 7 PRINT “AT THE BEGINNING OF THE GAHE, A RANDON NUMBER OF CHIPS ARE" 
THERE ARE 7 CHIPS ON THE BOARD. @ PRINT “PLACED ON THE BOARD. THE NUMBER OF CHIPS ALWAYS STARTS" 
COMPUTER TAKES 4 CHIPS LEAVING 3... YOUR HOVE? 1 9 PRINT "AS AN GDD NUMBER. ON EACH TURN, A PLAYER MUST TAKE ONE," 
THERE ARE 2 CHIPS ON THE BOARD. 10 PRINT “TWO, THREE, OR FOUR CHIPS. THE WINNER IS THE PLAYER WHO" 
COMPUTER TAKES 2 CHIPS. 11 PRINT “FINISHES WITH A TOTAL NUMBER OF CHIPS THAT 1S EVEN." 
GAHE OVER ... 1 WINE! 12 PRINT “THE COMPUTER STARTS OUT KNOWING ONLY THE RULES OF THE" 
13 PRINT “GAME. IT GRADUALLY LEARNS TO PLAY WELL. IT SHOULD BE" 
THERE ARE 19 CHIPS ON THE BOARD. 14 PRINT “DIFFICULT TO BEAT THE COMPUTER AFTER TWENTY GANES IN A ROW.” 
COMPUTER TAKES 4 CHIPS LEAVING 15 ... YOUR MOVE? 4 1S PRINT "TRY ITHE!i"s PRINT 
THERE ARE 11 CHIPS ON THE BOARD. 16 PRINT “TO QUIT AT ANY TIHE, TYPE A “0” AG YOUR NOVE."s PRINT 
COKPUTER TAKES 4 CHIPS LEAVING 7 ... YOUR MOVE? 2 20 DIA R(I,5) 
THERE ARE 5 CHIPS ON THE BOARD. 25 L=O: B=0 
COMPUTER TAKES 4 CHIPS LEAVING 1... YOUR MOVE? 1 30 FOR 120 105 
GAME OVER ... I WINES 40 R(1,1)=4 
50 R(O,1)=4 
THERE ARE 9 CHIPS ON THE BOARD. 60 WEXT I 
COMPUTER TAKES 4 CHIPS LEAVING 5 ... YOUR MOVET 2 70 A=0: B=0 
THERE ARE 3 CHIPS ON THE BOARD. 90 PINT ((13#RND(1)49)/2) 241 
COMPUTER TAKES 3 CHIPS. 100 IF P=1 THEN 530 
GAHE OVER ... YOU WINITI 110 PRINT “THERE ARE"SPs"CHIPS ON THE BOARD." 
120 E1=E 
THERE ARE 21 CHIPS ON THE BOARD. 130 Lish 
COMPUTER TAKES 2 CHIPS LEAVING 17 ... YOUR MOVE? 2 140 E=(A/2<ENT(A/2)) #2 
THERE ARE 17 CHIPS ON THE BOARD. 150 L=INT((P/6-INT(P/6))%6+.5) 
COMPUTER TAKES 4 CHIPS LEAVING 13 ... YOUR MQVE? 1 160 IF R(E,L)>=P THEN 320 
THERE ARE 12 CHIPS ON THE BOARD. 170 MER(E,L) 
COHPUTER TAKES 4 CHIPS LEAVING @ ... YOUR MOVET 3 180 IF H<=0 THEN 370 
THERE ARE 5S CHIPS ON THE BOARD. 190 PeP-H 
COMPUTER TAKES 4 CHIPS LEAVING 1... YOUR MOVE? 1 200 IF H=1 THEN 510 
GAME OVER ... I WINIS! 210 PRINT “COMPUTER TAKES" ;H;"CHIPS LEAVING" ;P3"... YOUR MOVE“; 
220 B=B+H 
THERE ARE 9 CHIPS ON THE BOARD. 230 INPUT M 
COMPUTER TAKES 2 CHIPS LEAVING 7 ... YOUR MOVE? 4 240 H=INTCH) 
THERE ARE 3 CHIPS ON THE BOARD. 250 IF HCl THEN 450 
COMPUTER TAKES 2 CHIPS LEAVING 1 ... YOUR MOVE? 1 260 IF M>4 THEN 440 
GAME OVER ... I WINT!! 270 IF HOP THEN 440 
280 IF NaP THEN 360 
THERE ARE 21 CHIPS ON THE BOARD. 290 P=P-H 
COMPUTER TAKES 2 CHIPS LEAVING 19 ... YOUR MOVE? 1 300 A=AtH 
THERE ARE 18 CHIPS ON THE BOARD. 310 GOTO 100 
COMPUTER TAKES 4 CHIPS LEAVING 14 ... YOUR MOVE? 1 320 IF P=1 THEN 550 
THERE ARE 13 CHIPS ON THE BOARD. 330 PRINT “CQHPUTER TAKES" |Ps"CHIPS." 
COMPUTER TAKES 4 CHIPS LEAVING 9 ... YOUR MOVE? 1 340 R(E,LD=P 
THERE ARE 8 CHIPS ON THE BOARD. 350 B=B+P 
COMPUTER TAKES 2 CHIPS LEAVING 6... YOUR MOVE? 1 360 IF B/2=INT(B/2) THEN 420 
THERE ARE 5 CHIPS ON THE BOARD. 370 PRINT "GAHE OVER ... YOU WINE EI": PRINT 
COMPUTER TAKES 4 CHIPS LEAVING 1 ... YOUR MOVE? 1 390 IF RCE,L)=1 THEN 480 
GAME OVER ... I WINST! 400 RCE, LISRCE,L)-4 
410 GOTO 70 
THERE ARE 9 CHIPS ON THE BOARD. 420 PRINT “GANE OVER ... I WINETE": PRINT 
COMPUTER TAKES 2 CHIPS LEAVING 7 ... YOUR MOVE? 4 430 GOTO 70 
THERE ARE 3 CHIPS ON THE BOARD. 450 IF N=0 THEN 570 
COMPUTER TAKES 2 CHIPS LEAVING 1... YOUR NOVET ¢ 460 PRINT H3"IS AN ILLEGAL HOVE ... YOUR MOVE"; 
GAHE OVER ... I INI! 470 GOTO 230 
400 IF R(EI,Lt)=1 THEN 70 
THERE ARE 21 CHIPS ON THE BOARD. 490 RCEV,LID=RIELL1)~4 
COMPUTER TAKES 2 CHIPS LEAVING 19 ... YOUR MOVE? 4 500 GOTO 70 
THERE ARE 15 CHIPS ON THE BOARD. 510 PRINT “COMPUTER TAKES 1 CHIP LEAVING";P;".,. YOUR MOVE": 
COMPUTER TAKES 2 CHIPS LEAVING 13... YOUR MOVE? 3 520 GOTO 220 
THERE ARE 10 CHIPS ON THE BOARD. 530 PRINT “THERE IS 1 CHIP ON THE BOARD.” 
COMPUTER TAKES 4 CHIPS LEAVING 6 ... YOUR HOVE? 4 540 GOTO 120 
THERE ARE 2 CHIPS ON THE BOARD. 550 PRINT “COMPUTER TAKES 1 CHIP." 
COMPUTER TAKES 2 CHIPS, 560 GOTO 340 
GAME OVER ... I MINIT! $70 END 


2 PRINT TAB(32);"FLIPFLOP" 
4 PRINT TAB(1S); "CREATIVE COMPUTING MORRISTOUN, NEW JERSEY" 


The object of this game is to change 6 PRINT:PRINTSPRINT 
a row of ten X’s 10 REM ##* CREATED BY MICHAEL CASS 
XxXXXXXXXXX 15 DIM A$(20) 
> 0 on 
to a row of ten 0's: 20 PRINT THE OBJECT OF THIS PUZZLE IS TO CHANGE THIS: 
0000000000 40 PRINT "X XX XX KXX KX" 
by typing in a number corresponding 50 PRINT . 
to the position of an "“X” in the line. On oD pea TO THIS: 
some numbers one position will a0 PRINT "0 000000000" 
change while on other numbers, two 90 PRINT 
will change. For example, inputting a3 100 PRINT mal TYPING THE NUMBER CORRESPONDING TO THE POSITION OF THE" 
may reverse the X and 0 in position 3, t10 PRINT “LETTER OW SOHE NUMBERS, ONE POSITION WILL CHANGE, ON" 
but it might possibly reverse some 20 PRINT “OTHERS, TWO WILL CHANGE. TO RESET LINE TO ALL X’S, TYPE 0” 
u ight p y 130 PRINT "(ZERO) AND TO START OVER IN THE HIDDLE OF A GAME, TYPE “ 
other position too! You ought to be able 140 PRINT "11 CELEVEN).” 
to change all 10 in 12 or fewer 170 PRINT 
moves. Can you figure out a good win- "0 TeRND CA) 
ning strategy? 200 PRINT “HERE 1S THE STARTING LINE OF X’S.° 
To reset the line to all X’s (same 210 PRINT 
game), typé 0 (zero). To start a new 220 C=O . . 
game at any point, type 11. zo ra up as ey ey 10 
The original author of this game was 250 PRINT 
Michael Kass of New Hyde Park, New 260 REM 
York. 270 FOR X=1 10 10 
280 AS(X)="X" 
270 NEXT X 
FLIPFLOP 300 GAT 320 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY Ji0 PRINT “ILLEGAL ENTRY--TRY AGAIN." 
320 PRINT “INPUT THE NUMBER"; 
THE OBJECT OF THIS PUZZLE 1S [0 CHANGE THIS: 330 INPUT H 
340 IF RCDINT(H) THEN 310 
XXXXXKXXKX 350 IF N=11 THEN 180 
360 IF N11 THEN 310 
TO THIS: 370 IF N=0 THEN 230 
360 IF H=N THEN 510 
ooao000000 390 HEN 
400 IF AS(H)="0" THEN 480 
BY TYPING THE NUMBER CORRESPONDING TO THE POSITION OF THE 410 Ag(N)="O" 
LETTER ON SOME NUMBERS, ONE POSITION WILL CHANGE, ON 420 R=TAN(O+H/Q-N)~SIN(Q/N)+3364S1N (BEN) 
OTHERS, TWO WILL CHANGE. TO RESET LINE TO ALL X°S, TYPE 0 430 HeR-INT(R) 
(ZERO) AND TO START OVER IN THE MIDDLE OF A GAME, TYPE 440 HEIHT(108N) 
V1 (ELEVEN). 450 IF AS(ND="0" THEN 480 
460 AS(ND="O" 
HERE IS THE STARTING LINE OF X‘S. 470 GOTO 610 
480 AS(N)="X" 
123456789 10 490 IF HEN THEN 420 
MXN XXKXNXK 500 GOTO 610 
510 IF AS(N)="O" THEN 590 
IKPUT THE HUMBER? 2 $20 AS(N)="0" 
123455789 10 530 R=.5928(1/TAN(Q/N+O))/SIN(N#240)-COS(H) 
XOXXXXXOXK 540 HaR-INT(R) 
INPUT THE NUMBER? 3 550 NeINT(10¢N} 
123456789 10 560 IF AS(ND="O" THEN 590 
XOOXXxXOO0XX 570 as(h)="o" 
INPUT THE NUMBER? 4 580 GOTO 610 
1234546789 10 590 AS(ND=hX" 
XOOOXxoaXxX 600 IF H=X THEN 530 
INPUT THE HUMBERT 5 610 PRINT “123456789 to” 
123456799 10 620 FOR Z=1 TO 10: PRINT AS(Z)3" “ss NEXT Z 
xooooxooxx 630 C=C+1 
INPUT THE NUMBER? 9 640 PRINT 
1234546789 10 650 FOR Z=1 TO 10 
XOoOxXXo00Xx 660 IF AS(Z)<>"0" THEN 320 
INPUT THE NUMBERT 1 670 NEXT Z 
123456789 10 680 IF C>12 THEN 710 
oo0o0xxeoox 690 PRINT "VERY GOOD. YOU GUESSED IT IN ONLY";C;"GUESSES," 
INPUT THE NUMBER? 5 700 GOTO 720 
123456789 10 710 PRINT "TRY HARDER NEXT TIME, IT TOOK YOU"sCs"GUESSES." 
ooco00x000x 720 PRINT "DO YOU WANT TO TRY ANOTHER PUZZLE"; 
INPUT THE NUMBER? 10 730 INPUT X$ 
123456789 10 740 IF X$="NO" THEN 780 
cooo0000000 760 PRINT 
VERY GOOD. YOU GUESSED IT IN ONLY & GUESSES. 770 GOTO 180 
DO YOU WANT TO TRY ANOTHER PUZZLE? NO 780 END 
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Football 


Football is probably the most pop- 
ular simulated sports game. | have seen 
some people elect to play com- 
puterized football in preference to 
watching a bowl game on television. 

Two versions of football are 
presented. The first is somewhat more 
“traditional” in that you, the player, are 
playing against the computer. You 
have a choice of seven offensive plays. 
On defense the computer seems to 
play a zone defense, but you have no 
choice of plays. The computer 
program presents the necessary rules 
as you play, and it is also the referee 
and determines penalties when an 
infraction is committed. FTBALL was 
written by John Kemeny at Dartmouth. 


In the second version of football, the 
computer referees a game played 
between two human players. Each 
player gets a list of twenty plays witha 
code value for one. This list should be 
kept confidential from your opponent. 
The codes can be changed in data 
statements 1770 for Team 1 and 1780 
for Team 2. All twenty plays are 
offensive; a defensive play is specified 
by defending against a type of offen- 
sive play. A defense is good for other 
similar types of plays, for example, a 
defense against a flare pass is very 
good against a screen pass but much 
less good against a half-back option. 

This game was originally written by 
Raymond Miseyka of Butler, Penn- 
sylvania. 
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FTBALL 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


THIS IS DARTMOUTH CHAHPIONSHIP FOOTBALL. 

YOU WILL QUARTERBACK DARTMOUTH. CALL PLAYS AS FOLLOUS: 
Y= SIHPLE RUN; 2= TRICKY RUN} 3= SHORT PASS; 

4= LONG PASS? S= PUNT) 6= QUICK KICK; 7= PLACE KICK. 


CHOOSE YOUR OPPONENT? RUTGERS 


DARTMOUTH WON THE TOSS 
DO YOU ELECT TO KICK OR RECEIVE? RECEIVE 


54 YARD KICKOFF 

42 YARD RUNBACK 
BALL ON DARTMOUTH 48 YARD LINE 
FIRST DOWN DARTHOUTHS** 


NEXT PLAY? 3 

SHORT PASS. INCOMPLETE. NO GAIN 
BALL ON DARTMOUTH 48 YARD LINE 

BOUN 2 YARDS 10 GO: 10 


NEXT PLAY? 4 
LONG PASS. INCOMPLETE. NO GAIN 
RUTGERS OFFSIDES -- PENALTY OF 5 YARDS. 


DO YOU ACCEPT THE PENALTY? YES 
BALL ON RUTGERS 47 YARD LINE 
DOUN 2 YARDS 10 GO: 5 


NEXT PLAY? 2 

TRICKY RUN. 3 YARD Lass 
BALL ON DARTHOUTH 50 YARD LINE 
BOUN 3 YARDS TO GO: & 


NEXT PLAY? 2 

TRICKY RUN. 10 YARD GAIN 
BALL ON RUTGERS 40 YARD LINE 
FIRST DOUN DARTMOUTHE# 


NEXT PLAY? 4 
LONG PASS. COMPLETE. TOUCHDOWN #4 
KICK IS GOOD 


SCORE: 7 TO 0 


DARTMOUTH KICKS OFF 

45 YARD KICKOFF 

@ YARD RUNBACK 
BALL ON RUTGERS 15 YARD LINE 
FIRST DOWN RUTGERS##+ 


SHORT PASS. BATTED DOWN. NO GAIN 
BALL ON RUTGERS 15 YARD LINE 
DOWN 2 YARDS TO GOs 10 


LONG PASS. BATTED DOWN. NG GAIN 
BALL ON RUTGERS 15 YARD LINE 
DOWN 3 YARDS TO GO: 10 


LONG PASS, INCOMPLETE. NO GAIN 
BALL ON RUTGERS 15 YARD LINE 
DOWN 4 YARDS TO GO: 10 


PUNT. 34 YARD PUNT 

15 YARD RUN BACK 
BALL ON RUTGERS 34 YARD LINE 
FIRST DOWN DARTHOUTHe+* 


NEXT PLAY? 2 
TRICKY RUN. 7 YARD LOSS 
BALL ON RUTGERS 35 YARD LINE 


NEXT PLAY? 4 
LONG PASS. COMPLETE. 
KICK 1S 6000 


TOUCHDOUN +#% 


LONG PASS. INTERCEPTED. 
BALL ON RUTGERS 44 YARD LINE 
FIRST DOWN DARTHOUTHe+s 


DOUN 2 YARDS To GOs 11 
SCORE: 14 T0 0 
NEXT PLAY? 4 
LONG PASS. INTERCEPTED. 
BALL ON RUTGERS 15 YARD LINE 


FIRST DOUN RUTGERS##+ 


NEXT PLAY? 3 
SHORT PASS. INCOMPLETE. NO GAIN DARTMOUTH KICKS OFF 
BALL ON RUTGERS 35 YARD LINE 48 YARD KICKOFF 


powN 3 YARDS 10 GO: 11 0 YARD RUNBACK 
BALL GN RUTGERS 12 YARD LINE 
FIRST DOWN RUTGERS##+ SHORT PASS. COMPLETE. 7? YARD GAIN 
BALL ON RUTGERS 22 YARD LINE 


NEXT PLAY? 2 
BOUN 2 YARDS TO GO: 3 


TRICKY RUN. 2 YARD LOSS 


RUTGERS OFFSIDES ~~ PENALTY OF 5 YARDS. SHORT PASS. COMPLETE. 9 YARD GAIN 


BALL ON RUTGERS 21 YARD LINE 
DOWN 2 YARDS 10 GO: 1 SHORT PASS. BATTED DOWN. 
BALL ON RUTGERS 22 YARD LINE 


DOWN 3 YARDS T0 GO: 3 


NO GAIN 
DO YOU ACCEPT THE PENALTY? YES 
BALL ON RUTGERS 30 YARD LINE 


DOWN 3 YARDS TO GO: 6 SIMPLE RUN. NO GAIN 


RUTGERS OFFSIDES -- PENALTY OF 5 YARDS. 
SHORT PASS. BATTED DOWN. 
BALL ON RUTGERS 22 YARD LINE 


NO GAIN 
NEXT PLAY? 2 


TRICKY RUN. 13 YARD GAIN DO YOU ACCEPT THE PENALTY? YES DOUN 4 YARDS TO GO: 3 
BALL ON RUTGERS 17 YARD LINE BALL ON RUTGERS 16 YARD LINE 
FIRST DOWN DARTHOUTH#s* poun 2 YARDS T0 GO: 4 
10 PRINT TAB(33);"FTBALL" 760 PRINT "FIRST DOUN “sO$(P)s "x9" 
20 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 770 PRINT 
JO PRINT: PRINT: PRINT 780 PRINT 
220 PRINT “THIS 1S DARTKOUTH CHAMPIONSHIP FOOTBALL." 790 GOTO 840 
230 PRINT "YOU WILL QUARTERBACK DARTMOUTH. CALL PLAYS AS FOLLOUS:" 800 REM PRINT POSITION 
240 PRENT "i= SIMPLE RUN; 2= TRICKY RUN; 3= SHORT PASS;" 810 IF X>50 THEN 840 
250 PRINT "4= LONG PASS$ S= PUNT; = QUICK KICK} 7= PLACE KICK." 820 PRINT L$(3);08(0);X;L8(4) 
260 PRINT 830 GOTO 850 
270 PRINT “CHOOSE YOUR OPPONENT": 840 PRINT L$(5)30$(1)3100-X5L8(4) 
280 INPUT O$(1) 850 RETURN 
290 0$(0)="DARTHOUTH" 860 REM NEU PLAY 
300 PRINT 870 LET T=T+1 
310 LET S(O)=0: LET S(1)=0 880 IF T=30 THEN 1040 
320 REM 890 IF 1<50 THEN 740 
330 DIM L$(20) 900 IF RND(1)>.2 THEN 940 
340 FOR I=1 10 20: READ L${1): NEXT 1 910 PRINT "END OF GAMEx#«" 
350 DATA “KICK",“"RECIEVE"," YARD ","RUN BACK FOR ","BALL ON ” 920 PRINT "FINAL SCORE: "sO$(0)3S(0)3" "s0$(1)3S(1) 
360 DATA "YARD LINE”," SIMPLE RUN",” TRICKY RUN"," SHORT PASS" 930 STOP 
370 DATA " LONG PASS","PUNT"," QUICK KICK "," PLACE KICK"," Loss “ 940 IF P=t THEN 1870 
380 DATA “ NO GAIN", "GAIN “," TOUCHDOWN ",” TOUCHBACK ","SAFETYe++" 950 PRINT "NEXT PLAY"; 
385 DATA "JUNK" 960 INPUT Z 
390 LET PeINTCRND(1)#2) 970 IF ZC>INT(Z) THEN 990 
400 PRINT O$(P);" WON THE TOSS" 980 IF ABS(Z-4)<=3 THEN 1010 
AlQ DEF FNF(X)=1-28P 990 PRINT “ILLEGAL PLAY NUMBER, RETYPE": 
420 DEF FNG(Z)=PR(X1-X)+(1-P)8(X-XP) 1000 GOTO 760 
430 IF P=0 THEN 470 1010 LET F=0 
440 PRINT O$(1)3" ELECTS TQ RECIEVE" 1020 PRINT LS(Z#6)5". "5 
450 PRINT 1030 LET R=RNDC1)*(. 9G4+FNF(1)4%.02) 
460 GOTO 580 1040 LET RIERND(1) 
470 PRINT "DO YOU ELECT TO KICK OR RECEIVE"; 1050 ON Z GOTO 1110,1150,1260,1480,1570, 1570, 1480 
480 INPUT A$ 1060 REM JEAN’S SPECIAL 
490 PRINT 1070 IF RND(1)> 1/3 THEN 940 
500 FOR E=1 TO 2 1080 PRINT “GAME DELAYED. DOG ON FIELD." 
510 IF AS=L$(E) THEN 550 1090 PRINT 
520 NEXT E 1100 GOTO 740 
530 PRINT “INCORRECT ANSWER. PLEASE TYPE “KICK” OR “RECEIVES 1110 REM SIMPLE RUN 
540 GOTO 480 1120 LET Y=INT(24#(R-.5)°343) 
550 IF E=2 THEN 580 1130 IF RND(1)<.05 THEN 1180 
560 LET P=1 1140 GOTO 2190 
580 LET X=40+(1-P) #20 1150 REM TRICKY RUN 
590 LET YeINT(200#(RND(1)-.5)°3455) 1160 LET Y=INT(20#R~5) 
600 PRINT YSL9(3)5" KICKOFF" 1170 IF RND(t)>.1 THEN 2190 
610 LET X=X-FNF(1)4Y 1180 LET Fe-f 
620 IF ABS(X-50)>=50 THEN 700 1190 LET X3=X 
$30 LET Y=INT(SO#RWD(1)°2)4(1-P) INT (5O*RND(1)°4) 1200 LET X=X+FRFC1)4Y 
640 LET X=X+FNF(H)#Y 1210 IF ABS(X-50)>=50 THEN 1240 
650 IF ABS{(X-50)>=50 THEN 655 4220 PRINT “##eFUMBLE AFTER "5 
S51 PRINT YsL$(3)3" RUNBACK" 1230 GOTO 2230 
652 GOTO 720 1240 PRINT "#eeFUNBLE.” 
655 PRINT L$(4)3 1250 GOTO 2450 
660 GOTO 2600 1260 REM SHORT PASS 
700 PRINT "TOUCHBACK FOR "s08(P) 1270 LET Y=INT(60#(RI-.5)°3410) 
710 LET X=20+P#60 1280 IF R<.05 THEN 1330 
720 REM FIRST DOWN 1290 IF R<.15 THEN 1390 
730 GOSUB 800 1300 IF R<.55 THEN 1420 
740 LET Xt=x 1310 PRINT “COMPLETE. "5 
750 LET D=1 1320 GOTO 2190 
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1330 IF D=4 THEN 1420 2250 PRINT L$(T54+SGN(Y)) 


1340 PRINT "INTERCEPTED." 2280 IF ABS(X3-50)>40 THEN 2300 
1350 LET Fe-1 2290 IF RND(1)<.1 THEN 2860 

1360 LET X=X+FNF(1)8Y 2300 GOSUB 800 

1370 LF ABS(X-50)>=50 THEN 2450 2310 IF F=0 THEN 2340 

1380 GOTO 2300 2320 LET P=1-P 

1390 PRINT "PASSER TACKLED. "3 2330 GOTO 740 

1400 LET Y=-INTCIO@RE) 2340 IF FNG(1)>=10 THEN 740 

1410 GOTO 2190 2350 IF D#4 THEN 2320 

1420 LET Y=0 2360 LET D=p+1 

1430 IF RND(1)<.3 THEN 1460 2370 PRINT “DOWN "3D3" ne 

1440 PRINT “INCOMPLETE. 2380 IF (Xt-50)eFNF(1)<40 THEN 2410 
1450 GOTO 2170 2390 PRINT "GOAL TO GO" 

1460 PRINT "BATTED DOWN. "? 2400 GOTO 2420 

1470 GOTO 2190 2410 PRINT "YARDS TO GO: "310-FNG(1) 
1480 REM LONG PASS 2420 PRINT 

1490 LET Y=INT(160#(R1-.5) °34+30) 2430 PRINT 

1500 IF R<.1 THER 1330 2440 GOTO 860 

1510 IF R<.3 THEN 1540 2450 REH BALL IN END-ZONE 

1520 IF R<.75 THEN 1420 2440 IF X>=100 THEN 2490 

1930 GOTO 1310 2470 LET E=0 

1540 PRINT "PASSER TACKLED. "3 2480 GOTO 2500 

1550 LET Y=-INT(15#R1+3) 2490 LET E=1 

15460 GOTO 2190 2500 ON 1+E~Fs2+P%4 GOTO 2510,2590,2760,2710,2590, 2510,2710,2760 
1570 REM PUNT OR KICK 2510 REM SAFETY 

1580 LET Y=INT(100*#(R~.5) “3+35) 2520 LET S(1-P)=S(1-P)+2 

1590 IF D=4 THEN 1410 2530 PRINT L3(19) 

1600 LET Y=INT(Y#1.3) 2540 GOSUB 2800 

1610 PRINT Y3L$(3);" PUNT” 2550 PRINT 0$(P);" KICKS OFF FROM ITS 20 YARD LINE." 
1620 IF ABS(X+Y#FNF(1)-50)>=50 THEN 1670 2560 LET X=204P#60 

1630 IF D<4 THEN 1670 2570 LET Pei-P 

1640 LET YISINT(R1*2%20) 2580 GOTO 590 

1650 PRINT Y3L$(3)5" RUN BACK" 2590 REK OFFENSIVE TD 

1660 LET Y=Y-¥1 2600 PRINT L9(17): "eee" 

1670 GOTO 1350 2610 IF RND(1)>.8 THEN 2680 

1480 REM PLACE KICK 2620 LET S(P)=5(P)47 

1690 LET Y=INT(100%(R-.5)°3+35) 2630 PRINT "KICK IS GOOD" 

1700 IF R1>.15 THEN 1750 2640 GOSUB 2800 

1710 PRINT “KICK IS BLOCKED#+#" 2650 PRINT O$(P)s" KICKS OFF" 

1720 LET X=X-SeFNF (1) 2660 LET P=1-P 

1730 LET P=i-P 7670 GOTO 580 

1740 GOTO 720 2680 PRINT "KICK IS OFF TO THE SIDE" 
1750 LET X=X+FNF(f)#Y 2690 LET S(P)=S(P)+4 

1760 IF ABS(X-50}>=60 THEN 1810 2700 GOTO 2640 

1770 PRINT "KICK IS SHORT." 2710 REM TOUCHBACK 

1780 IF ABS(X-50)>=50 THEN 2710 2720 PRINT L$(18) 

1790 Pst-P 2730 LET P=1-P 

1800 GOTO 630 2740 LET X=204+P*40 

1810 IF R1i>.5 THEN 1840 2750 GOTO 720 

1820 PRINT "KICK IS OFF 10 THE SIDE." 2760 REM DEFENSIVE TD 

1830 GOTO 2710 2770 PRENT LSC17)3°FOR "309(1-P) 3 Ueee" 
1840 PRINT “FIELD GOAL+e%" 2780 LET P=1-P 

1850 LET SCP)=S(P)4+3 2790 GOTO 2600 

1860 GOTO 2640 2800 REM SCORE 

1870 REM OPPONENT’S PLAY 2810 PRINT 

1880 IF D>1 THEN 1940 2820 PRINT "SCORE: "3S(0)3" Ta “sS¢4) 
1890 IF RND(1)>1/3 THEN 1920 2830 PRINT 

1900 LET 223 2840 PRINT 

1910 GOTO 1010 2850 RETURN 

1920 LET Z=1 2860 REM PENALTY 

1930 B0TO 1010 2870 LET PS=INT(2#RND(1)) 

1940 IF D=4 THEN 2090 2880 PRINT O$(P3);" OFFSIDES ~~ PENALTY OF 5 YARDS.° 
1950 IF 10+X-X1<5 THEN 1890 2870 PRINT 

1960 IF X<5 THEN 1890 2700 PRINT 

1970 IF X<=10 THEN 2160 2910 IF P3=0 THEN 2980 

1980 IF X>X1 THEN 2020 2920 PRINT "DO YOU ACCEPT THE PENALTY"; 
1990 LET A=INTC2*RND(1)) 2930 INPUT A$ 

2000 LET Z=2+he2 2940 IF A$="NO" THEN 2300 

2010 GOTO 1010 2950 IF A$="YES" THEN 3110 

2020 IF D<3 THEN 1990 2960 PRINT "TYPE “YES* OR “NO‘"; 
2030 IF X<45 THEN 1990 2970 GOTO 2930 

2040 IF RND(1)>1/4 THEN 2070 2780 REM OPPOWENT“S STRATEGY ON PENALTY 
2050 LET Z=6 2990 IF P=1 THEN 3040 

2060 GOTO 1010 3000 IF Y<=0 THEN 3080 

2070 LET Z=4 3010 IF FCO THEN 3080 

2080 GOTO 1010 3020 IF FNG(1)<3eD-2 THEN 3080 

2070 IF X>30 THEN 2140 3030 GOTO 3100 

2100 IF 10+X-X1<3 THEN 1890 3040 IF ¥<=5 THEN 3100 

2110 IF X<3 THEN 1890 3050 IF F<O THEN 3100 

2120 LET Z=7 3060 IF D<4 THEN 3080 

2130 GOTO 1010 3070 IF FNG(1)<10 THEN 3100 

2140 LET Z=5 3080 PRINT “PENALTY REFUSED.” 

2150 GOTO 1010 3090 GOTO 2300 

2160 LET A=INT(2*RND(1)) 3100 PRINT “PENALTY ACCEPTED.” 

2170 LET Z=2+A 3110 LET F=0 

2180 GOTO 1010 3120 LET D=D-1 

2190 REM GAIN OR LOSS 3130 IF P<>P3 THEN 3160 

2200 LET X3=X 3140 LET X=X3-FNF (1) 45 

2210 LET X=X+FNFC1)#Y 3450 GOTO 2300 

2220 IF ABS(X-30)>=50 THEN 2450 3160 LET X=X3+FNF CL) *S 

2230 IF Y20 THEN 2250 3170 GOTO 2300 

2240 PRINT ABS(Y);L$(3)3 3180 END 
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FOOTBALL 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED) 


DO YOU WANT INSTRUCTIONS? YES 

THIS 15 A GAME FOR TWO TEANS IN WHICH PLAYERS HUST 
PREPARE A TAPE WITH A DATA STATEMENT (1770 FOR TEAN 1, 
1780 FOR TEAM 2) IN WHICH EACH TEAM SCRAMBLES NOS. 1-20 
THESE NUMBERS ARE THEN ASSIGNED TO 20 GIVEN PLAYS. 

A LIST OF NOS. AND THEIR PLAYS ARE PROVIDED WITH 

BOTH TEAMS HAVING THE SAME PLAYS. THE MORE SIMILAR THE 
PLAYS THE LESS YARDAGE GAINED. SCORES ARE GIVEN 
WHENEVER SCORES ARE MADE. SCORES MAY ALSO BE OBTAINED 
BY INPUTTING 99,99 FOR PLAY NOS. TO PUNT GR ATTEMPT A 
FIELDGOAL, INPUT 77,77 FOR PLAY NOS. QUESTIONS WILL BE 
ASKED THEN. ON 4TH DOWN YOU WILL ALSO BE ASKED WHETHER 


YOU WANT TO PUNT OR ATTEMPT A FIELD GOAL. IF THE ANSWER [0 


BOTH QUESTIONS IS NO IT WILL BE ASSUMED YOU WANT TO 

TRY AND GAIN YARDAGE. ANSWER ALL QUESTIONS YES OR NO. 
THE GAME IS PLAYED UNTIL PLAYERS TERMINATE (CONTROL-C). 
PLEASE PREPARE A TAPE AND RUN. 


PLEASE INPUT SCORE LIMIT ON GAME? 28 
TEAM 1 PLAY CHART 
NO. PLAY 


17 PITCHOUT 

8 TRIPLE REVERSE 
4 DRAW 

14 QB SNEAK 

1? END AROUND 

3 DOUBLE REVERSE 
10 LEFT SWEEP 

{ RIGHT SWEEP 

7 OFF TACKLE 

it WISHBONE OPTION 
13 FLARE PASS 

9 SCREEN PASS 

5 ROLL OUT OPTION 
20 RIGHT CURL 

13 LEFT CURL 

{8 «WISHBONE OPTION 
16 SIDELINE PASS 

2 HALF~BACK OPTION 
12 RAZZLE~DAZZLE 

é BOMBI I! 


TEAR OFF HERE--~--~-~~-~~==---~----- nner en 


TEAK 2 PLAY CHART 
NO. PLAY 


20 -PITCHOUT 

2 TRIPLE REVERSE 
17 DRAW 

b) QB SNEAK 

8 END AROUND 

18 DOUBLE REVERSE 
12. LEFT SUEEP 

\t) RIGHT SUEEP 

| OFF TACKLE 

4 WISHBONE OPTION 
19 ~~ FLARE PASS 

14 SCREEN PASS 

10 - ROLL GUT OPTION 
? RIGHT CURL 

? LEFT CURL 

15 WISHBONE OPTION 
é SIDELINE Pass 
13 HALF-BACK OPTION 
16 RAZZLE~DAZZLE 

3 BOMBS! 


TEAR OFF HERE-~~----~ preteen entree eee 


TEAR 1 CO) 61000 200 30 40 50 60 70 80 70s: 1007 “TEAK 2 
TEAM 1 DEFENDS 0 YD GOAL -- TEAM 2 DEFENDS 100 YD GOAL. 


THE COIN IS FLIPPED 
TEEPEPELEEE ETE ETAEEE EEE EEE TEESE EEE EET TT EEE EE EE EE ETE TEES EE EEE EE EEE TS 


TEAK 1 RECEIVES KICK-OFF 
BALL WENT 52 YARDS. NOW ON @ 

---> 
TEAH 1 £0 10 «20 «300 «40 «S060 70s sBO«70-—S«100 TEAK 2 
TEAH 1 DO YOU WANT TO RUNBACK? YES 


RUNBACK TEAM t ~1 YARDS 


TEAK 1 DOUN 1 ON ? 


10 YARDS TO 18T DOWN 
---> 
TEAM 110 10 20 30 40 «50 60-70 BO 90—s«1003 ‘TEAM 2 


INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 4,2 
QUARTERBACK SCRAMBLED 


NET YARDS GAINED ON DOWN 1 ARE 39 


TEAM 1 DOWN 1 ON 40 
10 YARDS TO 1ST DOWN 
---) 
TEAH 1 10 10-20-30 40s SO O70 BO«90—S«1007 TEAM 2 


INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 6,4 
PASS INCOHPLETE TEAK 1 
NET YARDS GAINED ON DOWN 1 ARE 0 


Sarcsrssass 


TEAK 1 DOUN 2 ON 40 


10 YARDS TO 1ST DOWN 
seed 
TEAM 1 (0) 6100 «200 «30 40 50 0 70 BO s90Ss«1007 TEAM 2 


INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 14,4 
PASS INCOMPLETE TEAM 1 
NET YARDS GAINED ON DOWN 2 ARE 0 


TEAM 1 DOWN 3 ON 40 
10 YARDS TO 1ST DOUN 
n--) 
TEAM 1 CO 610 «620 «30 40 50 80 70 BO 90: 1003 TEAK 2 


INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 9,4 
QUARTERBACK SCRAMBLED 


NET YARDS GAINED ON DOWN 3 ARE 1 


TEAK 1 DOUN 4 ON 41 
9 YARDS TO 1ST DOWN 
“+? 
TEAR 1 £0 610 «200 «30 40 50 60 70 Os90Ss« 1002 TEAN 2 


DOES TEAK t WANT TO PUNT? NO 
DOES TEAM 1 WANT TO ATTEMPT A FIELD GOAL? NO 
INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 13,20 
QUARTERBACK SCRAMBLED 
NET YARDS GAINED ON DOWN 4 ARE -2 
CORVERSTON UNSUCCESSFUL TEAM 1 
FEPPE EATER EEE EEE ETE ETAT ETT ETE THEE E Peete e eet tte e tte ete tte ttt tt 
TEAK 2 DOWN 1 ON 39 
40 YARDS TO 1ST DOWN 

Qere 
Teah 1 CO) 6100 20 50 40 50 6070 BO 90s: 100] «TEAK 2 
INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,11 
PASS INCOMPLETE TEAK 2 


NET YARDS GAINED ON DOWN 1 ARE 0 


BRUHASSRAGH AS SoC Ae See S AR ARR RRA SERS RSRS SARS SSSI RSE sess SSE eee 
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1 PRINT TAB(32);"FOOTBALL” 
2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
3 PRINTSPRINTSPRINT 


100 
120 
130 
140 
145 
150 
140 
165 
170 
180 
190 
195 
200 
210 
220 
223 
225 
227 
230 
240 
250 
260 
270 
280 
270 
300 
330 
350 
360 
370 
380 
410 
420 
430 
440 
430 
440 
630 
640 
$50 
660 
470 
680 
670 
700 
710 
720 
725 
730 
740 
760 
765 
770 
780 
790 
794 
795 
796 
810 
830 
B40 
845 
850 
a70 
980 
985 
890 
893 
895 
897 
ave 
900 
901 
902 
904 
910 
920 
930 
936 
940 
950 
960 
970 
978 
780 
785 
790 


REK 

DIM ACZO),B( 20) ,C(40),HC2), TC2) WC), X(2), 462), 262) 

DIN N8(2),D(2),P$(20) 

PRINT “PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED)" 

PRINT: PRINT 

INPUT "DO YOU WANT INSTRUCTIONS"; As 

IF AS="NO” THEN 290 

IF ASC"YES" THEN 150 

PRINT "THIS IS A GAME FOR TWO TEANS IN WHICH PLAYERS MUST" 
PRINT “PREPARE @ TAPE WITH A DATA STATEMENT (1770 FOR TEAM 1," 
PRINT "1780 FOR TEAH 2) IN WHICH EACH TEAK SCRAMBLES NOS, 1-20" 
PRINT “THESE NUMBERS ARE THEN ASSIGNED TO 20 GIVEN PLAYS.“ 
PRINT“A LIST OF NOS. AND THEIR PLAYS ARE PROVIDED WITH" 

PRINT “BOTH TEANS HAVING THE SAHE PLAYS. THE MORE SIMILAR THE” 
PRINT "PLAYS THE LESS YARDAGE GAINED. SCORES ARE GIVEN" 

PRINT "WHENEVER SCORES ARE HADE. SCORES NAY ALSO BE OBTAINED" 
PRINT “BY INPUTTING 99,99 FOR PLAY NOS. 1G PUNT OR ATTEMPT A” 
PRINT "FIELDGOAL, INPUT 77,77 FOR PLAY NOS. QUESTIONS WILL BE" 
PRINT “ASKED THEN. ON 4TH DOWN YOU WILL ALSO BE ASKED WHETHER" 
PRINT “YOU WANT TG PUNT OR ATTEMPT A FIELD GOAL. IF THE ANSWER TO" 
PRINT “BOTH QUESTIONS IS NO 17 WILL BE ASSUMED YOU WANT TO" 
PRINT “TRY AND GAIN YARDAGE. ANSWER ALL QUESTIONS YES OR NO.” 
PRINT “THE GAME IS PLAYED UNTIL PLAYERS TERMINATE (CONTROL~C)." 
PRINT “PLEASE PREPARE A TAPE AND RUN.“s STOP 

PRINTSPRINT “PLEASE INPUT SCORE LIMIT ON GAKE";:INPUT E 

FOR 1=1 10 40: READ Ni IF 1>20 THEN 350 

A(N)=I: GOTO 360 

B(N)=1~20 

CCL=N: NEXT I 

FOR I=1 TO 20: READ PS(I): NEXT I 

Le0: T= 

PRINT “TEQH"3Ts"PLAY CHART" 


PRINT “NO. PLAY" SPRINT 
FOR 1=1 TO 20 

REH 

PRINT CCL+L) | TABCQ) SPSC1) 
NEXT I 

L=L420sT=2 

PRINT 


PRINT "TEAR OFF HERE--~~-~-~-~~- m2 ~ 2 nnn nnn een " 
FOR X=1 TO tt: PRINT: NEXT X 

FOR Z=1 10 3000: NEXT 2 

IF L=20 THEN 410 

D(W)=Os DCQI=Ts MSCEIS% m= 9s HS CD)EM Cm oH 

HOV)=0s HEQ)02 TU1)822 TC2)=4 

Wide-ts UC2)STs XE1d=100s X12)20 

Yes VCAs-12 ZO 11 2)2100 

GOSUB 1910 

PRINT “TEAK 1 DEFENDS 0 YD GOAL -~ TEAM 2 DEFENDS 100 YD GOAL.” 
T=INTC2@RND (1) 41) 

PRINT: PRINT “THE COIN IS FLIPPED" 

P=X(T)-¥(T) #40 

GOSUB 1840: PRINT : PRINT “TEAM"STS "RECEIVES KICK-OFF“ 
K=INT(26@RND(1)440) 

PEPm¥(T) 4K 

IF W(T)*PCZ(T)+10 THEN 810 

PRINT: PRINT "BALL WENT QUT OF ENDZONE --AUTONATIC TOUCHBACK--" 
GOTO 870 

PRINT "BALL WENT" ;Ks"YARDS. NOW OW*SPsGOSUB 1900 
PRINT “TEAH"ST3"DO YOU WANT 10 RUNBACK"s sINPUT AS 

IF AS="YES" THEN 1430 

IF AS<>"NO" THEN 830 

IF UCT)*PCZ(T) THEN 880 

P=Z(1)-W(T}#20 

Deis S=P 

FOR 1=1 TO 72: PRINT “="t: NEXT I 

PRINT: PRINT “TEAN“;T;"DOWN' SDs "ON TP 

IF D<>4 THEN 900 

IF YCT)€(PEY(T)#1Q)9=X(T) THEN 898 

C=4; GOTO 900 

C8 

IF C=@ THEN 904 

PRINT TAB(27)310-€Y¥¢T)#€P-¥(1)9S) ¢"YARDS TO 1ST DOWN" 
GOTO 910 

PRINT TAB(27);X(T)~¥ (TD 4 "YARDS" 

GOSUB 1900: IF D=4 THEN 1180 

REH 

U=INT(3#RND(O)-1)s GOTO 940 

PRINT “ILLEGAL PLAY NUMBER, CHECK AND" 

PRINT “INPUT OFFENSIVE PLAY, DEFENSIVE PLAY"; 

IF T=2 THEN 970 

INPUT P1,P2: GOTO 975 

INPUT P2,P1 

IF Pi=77 THEN 1180 

IF P1>20 THEN 1800 

IF PICt THEN 1800 

IF P2>20 THEN 1800 


992 IF P2<1 THEN 1800 


995 PHSINT(PI): 


1000 
1005 
1010 
1012 
1015 
1020 
1025 
1030 
1035 
1037 
1040 
1045 
1048 
1050 
1060 
1070 
1080 
1100 
1110 
1120 
1130 
1140 
1160 
1170 
i180 
1185 
1187 
1190 
1195 
1200 
1210 
1215 
1217 
1230 
1240 
1280 
1290 
1320 
1340 
1360 
1380 
1390 
1420 
1430 
1440 
1460 
1480 
1485 
1490 
1500 
1510 
1640 
1645 
1650 
1460 
1680 
1690 
1700 
1710 
1720 
1735 
1740 
1742 
1744 
1745 
1750 
1770 
1780 
1790 
1792 
1794 
1796 
1798 
1800 
1810 
1820 
1825 
1827 
1830 
1835 
1850 
1860 
1870 
1900 
1910 
1915 
1920 
1930 
2000 
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P2=INT(P2) 
YEINTCABSCACPA)-BCP2))/19%((X (7 -¥ (1) #P 425) 4RND C1 )-150) 
PRINT: IF T=2 THEN 1015 

IF ACPED<ET THEN 1048 

GOTO 1020 

IF BCP2)<11 THEN 1048 

IF U<>O0 THEN 1035 

PRINT “PASS INCOMPLETE TEAN";T 

Y20; GOTO 1050 

G=RNDC1): IF G>.025 THEN 1040 

IF YO2 THEN 1045 

PRINT "QUARTERBACK SCRAMBLED": GOTO 1050 

PRINT "PASS COMPLETED": GOTO 1050 

PRINT "THE BALL WAS RUN" 

P=P-U(T) *Y 

PRINT: PRINT “NET YARDS GAINED ON DOWN’ ;D;"ARE “;Y 
G=RWDC1): EF G>.025 THEN tt10 

PRINT: PRINT "*# LOSS OF POSSESSION FROM TEAM";T;"TO TEAN"ST(T) 
GOSUB 1850s PRINTs T=T(T): GOTO 830 

IF ¥(V)eP>=X¢(T) THEN 1320 

IF W(T)*P>=Z(T) THEN 1230 

TF Y(T)*P-Y(7)*S>=10 THEN 880 

D=D+is IF DCS THEN 885 

PRINT: PRINT “CONVERSION UNSUCCESSFUL TEAN";TsT=T(T) 
GOSUB 1850: GOTO 880 

PRINT "BOES TEAK"; T;°WANT TO PUNT"5: INPUT AS 

IF AS="NO" THEN 1200 

IF ASCO"YES" THEN 1180 ‘ 


PRINT:PRINT "TEAM" ST; "WILL PUNT": G=RND(1): IF G<.025 THEN 1080 
GOSUB 1850: K=INT(25*#RND(1)4+395)s T=T(T)s GOTO 790 

PRINT "DOES TEAN";T; "WANT TO ATTEMPT A FIELD GOAL"s: INPUT A$ 

TF AS="YES" THEN 1640 

IF AS<"NO" THEN 1200 

GOTO 920 

PRINT: PRINT "SAFETY AGAINST TEAN"; 1; "4+0+469+ ence b4¢4 4 65:¢%0H-OH" 


HCT(T))=H(T(T)) +2 GOSUB 1810 

PRINT" TEAM’; T;°DO YOU WANT TO PUNT INSTEAD OF A KICKOFF" ;sINPUT A$ 
PaZ(T)-U(T) #203 IF AS="YES" THEN 1190 

PRINT: PRINT “TOUCHDOWN BY TEAK"; T;"*4¢¢2¢e¢¢ee¢ 02 Ree EERYER TEAK" 
Q=7: G=RND(1): IF G>.1 THEN 1380 

Q=4: PRINT "EXTRA POINT NO GOOD": GOTO 1390 

PRINT “EXTRA POINT GOOD" 

H(T)SH(T)+Qs GOSUB 1810 

T=T(T)s GOTO 745 

K=INT(9*RND(O) +1) 

R=INT(CCCX(T) “YC T) #P 425 ARNDT )-15)/K) 

P=P-U(T)4R 

PRINTSPRINT "RUNBACK TEAM"; T}R; "YARDS" 

G=RND(1): IF G<.025 THEN 1080 

TF ¥(T)#P>=X(T) THEN 1320 

IF U(T)*P>=Z(7) THEN 1230 

GOTO 880 

PRINT: PRINT "TEAM"; TS "WILL ATTEMPT A FIELD GUAL" 

G=KND(1): IF G<.025 THEN 1080 

FEINT(35#RND(1 2420) 

PRINT: PRINT "KICK IS"3F;"YARDS LONG" 

P=P-W(T)#F: GRND(1) 

IF G<.35 THEN 17335 

IF Y(T)#PCX(T) THEN 1740 

PRINT “FIELD GOAL GOOD FOR TEAM} 1; "Feeeer teed heres ere eH Y EA" 
G=3: GOTO 1370 

PRINT “BALL WENT WIDE" 

PRINT "FIELD GOAL UNSUCCESFUL TEAN"; 13 "--~--- rene nnn == Too BAD" 
GOSUB 1850: IF ¥(T)*P<X(T)+10 THEN 1745 

T=T(T)s GOTO 794 

PRINT: PRINT “BALL NOW ON";P 

T=T(T): GOSUB 1900: GOTO 830 


DATA 17,8,4,14,19,3, 10, 1,7, 11,15,7,5,20,13,18,16,2,12,6 

DATA 20,2, 17,5)8, 18,12, tty 1,4, 17,14, 10,257) 15,6713, 16,3 

DATA “PITCHOUT" "TRIPLE REVERSE", "DRAW", "QB SNEAK", "END AKOUND” 
DATA “DOUBLE REVERSE","LEFT SWEEP", "RIGHT SWEEP", "OEF TACKLE“ 

DATA “WISHBONE OPTION’, "FLARE PASS", "SCREEN PASS" 

DATA “ROLL OUT OPTION", "RIGHT CURL","LEFT CURL", "WISHBONE OPTION" 
DATA "SIDELINE PASS", “HALF-BACK OPTION", "RAZZLE-DAZZLE", "BOMB!!!" 
LE PIC>99 THEN 936 


PRINT: PRENT "TEAK 1 SCORE IS";HC1) 

PRINT “TEAM 2 SCORE IS°3H(2)s PRINT 

IF HCT)SE THEN 1830 

PRINT "TEAK"| 1; “WINGeexeetenteseerceeers GOTO 2000 
IF Pi=?9 THEN 940 

RETURN 

PRINT 

FOR X=1 TO 72: PRINT “#"3s NEXT Xs PRINT 

RETURN 

PRINT TABCD(T)454+P/2) ;H9(T) 


PRINT "TEAM 1 £0 10 20 30 40 50 60 70 B80 90°"; 
PRINT " 100] TEAK 2" 

PRINT 

RETURN 

END 


Fur Trader 


You are the leader of a French fur 
trading expedition in 1776 leaving the 
Ontario area to sell furs and get 
supplies for the next year. You havea 
choice of three forts at which you may 
trade. The cost of supplies and the 
amount you receive for your furs will 
depend upon the fort you choose. You 
also specify what types of furs that you 
have to trade. 

The game goes on and on until you 
elect to trade no longer. 

Author of the program is Dan 
Bachor, University of Calgary, Alberta, 
Canada. 


FUR TRADER 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN 
1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET 
SUPPLIES FOR THE NEXT YEAR. YOU HAVE A CHOICE OF THREE 
FORTS AT WHICH YOU MAY TRADE. THE COST OF SUPPLIES 

AND THE AMOUNT YOU RECEIVE FOR YOUR FURS WILL DEPEND 

ON THE FORT THAT YOU CHOOSE. 
DO YOU WISH TO TRADE FURS? 
ANSWER YES OR NO ? YES 

YOU HAVE $ 600 SAVINGS, 

AND 190 FURS TO BEGIN THE EXPEDITION. 


YOUR 190 FURS ARE DISTRIBUTED ANONG THE FOLLOWING 
KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX. 


HOW HANY HINK PELTS DO YOU HAVE? 40 
HOW MANY BEAVER PELTS DO YOU HAVE? 50 
HOW MANY ERMINE PELTS DO YOU HAVE? 60 


HOW MANY FOX PELTS DO YOU HAVE? 40 

DO YOU WANT TO TRADE YOUR FURS AT FORT 1, FORT 2, 
OR FORT 3? FORT t IS FORT HOCHELAGA (MONTREAL) 

AND IS UNDER THE PROTECTION OF THE FRENCH ARMY. 
FORT 2 £5 FORT STABACONA (QUEBEC) AND IS UNDER THE 
PROTECTION OF THE FRENCH ARMY. HOMEVER, YOU HUST 
NAKE A PORTAGE AND CROSS THE LACHINE RAPIDS. 

FORT 3 1S FORT NEW YORK AND IS UNDER DUTCH CONTROL. 
YOU HUST CROSS THROUGH IROQUOIS LAND. 

ANSWER 1, 2, OR 3. 

73 

YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT 

FORT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE 
FOR YOUR FURS. THE COST OF YOUR SUPPLIES 
WILL’ BE LOWER THAN AT ALL THE OTHER FORTS. 
DO YOU WANT TO TRADE AT ANOTHER FORT? . 
ANSWER YES OR NO 1 YES 
ANSUER t, 2, OR 3. 

72 

YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARSION, 
HARDER THAN THE ROUTE T0 HOCHELAGA BUT EASIER THAN 
THE ROUTE TO NEW YORK. 


BO YOU WANT TO TRADE AT ANOTHER FORT? 
ANSWER YES OR NO ? NO 


YOUR CANOE UPSET EN THE LACHINE RAPIDS. 
LOST ALL YOUR FURS 
SUPPLIES AT FORT STADACONA COST $125.00 


YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00 Cy 
Md, 
YOU NOU HAVE $ 440 INCLUDING YOUR PREVIOUS SAVINGS \ Wed 


DO YOU WANT TO TRADE FURS NEXT YEAR? 
ANSWER YES OR NO ? YES 


YOU WILL RECEIVE AN AVERAGE VALUE 
FOR YOUR FURS AND THE COST GF YOUR SUPPLIES WILL BE AVERAGE 


-] 


YOU HAVE $ 460 SAVINGS. 
AND 190 FURS TO BEGIN THE EXPEDITION. 


YOUR 170 FURS ARE DISTRIBUTED ANONG THE FOLLOWING 
KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX. 


HOW MANY HINK PELTS DO YOU HAVE? 50 
HOW MANY BEAVER PELTS DO YOU HAVE? 100 
HOW MANY ERMINE PELTS BO YOU HAVE? 20 


HOW MANY FOX PELTS BO YOU HAVE? 20 

DO YOU WANT TO TRADE YOUR FURS AT FORT 1, FORT 2, 
QR FORT 3? FORT 1 15 FORT HOCHELAGA (MONTREAL) 
AND IS UNDER THE PROTECTION OF THE FRENCH ARMY. 
FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE 
PROTECTION OF THE FRENCH ARMY. HOUEVER, YOU HUST 
MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS. 

FORT 3 IS FORT NEU YORK AND IS UNDER DUTCH CONTROL. 
YOU HUST CROSS THROUGH IROQUOIS LAND. 

ANSUER 1, 2, OR 3. 

wg 

YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. aT 

FORT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE 
FOR YOUR FURS. THE COST OF YOUR SUPPLIES 

WILL BE LOWER THAN AT ALL THE OTHER FORTS. 

DO YOU WANT TO TRADE AT ANOTHER FORT? 

ANSUER YES OR NO ? NO 


YOU NARROWLY ESCAPED AN IROQUOIS RAIDING PARTY. 
HOWEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND. 
SUPPLIES AT NEW YORK COST $80.00 

YOUR TRAVEL EXPENSES TQ NEW YORK WERE $25.00 


YOU NOW HAVE $ 355 INCLUDING YOUR PREVIOUS SAVINGS 


BO YOU WANT TO TRADE FURS NEXT YEAR? 
7 NO 


ANSUER YES OR NO 


t 


t DIN F(4) 

2 PRINT TAB(31);"FUR TRADER” 

4 PRINT TAB(TS);°CREATIVE COMPUTING NORRISTOWN, NEW JERSEY" 

6 PRINTs PRINT: PRINT 

15 GOSUB 1091 

16 LET T=600 

17 PRINT "DO YOU WISH TO TRADE FURS?" 

18 GOSUB 1402 

1? IF BS="YES" THEN 100 

20 IF BS="YES " THEN 100 

21 STOP 

100 PRINT 

101 PRINT "YOU HAVE $";I "SAVINGS." 

102 PRINT “AND 190 FURS TO BEGIN THE EXPEDITION." 

261 LET ELSINT CC. TS#RNDCL)+.95)810°24.59/10°2 

262 LET BESINT((.25*RND(1)+1.00)#10°24,5)/10°2 

300 PRINT 

301 PRINT "YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING” 
302 PRINT “KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX." 

310 GOSUB 1430 

315 RESTORE 

330 FOR J=1 TO 4 

332 READ BS 

333 PRINT 

335 PRINT "HOU MANY ";B$;5" PELTS DO YOU HAVE": 

338 INPUT FCI) 

SAO LET FCODSF CT) FF (2)4F (3) 4F (4) 

342 IF FCOD=490 THEN 1100 

S44 TF F(O)>190 THEN 500 

348 NEXT J 

350 GOTO 1100 

500 PRINT 

SOT PRINT “YOU HAY NOT HAVE THAT MARY FURS." 

502 PRINT "DO NOT TRY TO CHEAT. I CAN ADD," 

503 PRINT "YOU MUST START AGAIN." 

504 GOTO 15 

508 PRINT 

Stt PRINT “DO YOU WANT TO TRADE FURS NEXT YEAR?" 

St3 GOTO 18 

1091 PRINT "YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN “ 
1092 PRINT "1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET" 
1093 PRINT "SUPPLIES FOR THE NEXT YEAR. YOU HAVE A CHOICE OF THREE” 
1074 PRINT “FORTS AT WHICH YOU MAY TRADE. THE COST OF SUPPLIES" 
1095 PRINT “AND THE AMOUNT YOU RECEIVE FOR YOUR FURS WILL DEPEND" 
1076 PRINT “GN THE FORT THAT YOU CHOOSE." 

1097 RETURN 

1100 PRINT “DO YOU WANT TO TRADE YOUR FURS AT FORT t, FORT 2," 
1102 PRINT "OR FORT 37 FORT 1 IS FORT HOCHELAGA (NONTREAL)" 
1103 PRINT “AND IS UNDER THE PROTECTION OF THE FRENCH ARMY." 
1104 PRINT "FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE" 
1105 PRINT "PROTECTION OF THE FRENCH ARMY. HOWEVER, YOU MUST" 
1106 PRINT "HAKE A PORTAGE AND CROSS THE LACHINE RAPIDS." 

1108 PRINT "FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL." 
1109 PRINT "YOU MUST CROSS THROUGH IRGQUGIS LAND." 

1110 PRINT “ANSWER t, 2, OR 3.° 

1ttt INPUT B 

1112 IF Bei THEN 1120 


mW 
111 
Wl 
112 
12 
112 
112 
112 
112 
13 
143 
113 
Wg 
113 
114 
114 
114 
114 


1148 


114 
15 
15 


1155 
1156 
1160 
1169 
1174 
75 
1176 
1477 
1180 
1181 
1190 
1198 


SIF B22 THEN 1139 

SIF Be3 THEN 1147 

6 GOTO fti10 

0 PRINT “YOU HAVE CHOSEN THE EASIEST ROUTE. HOWEVER, THE FORT" 

1 PRINT "IS FAR FROM ANY SEAPORT. THE VALUE" 

2 PRINT "YOU RECEIVE FOR YOUR FURS WILL BE LOW AND THE COST" 

3 PRINT "OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK.” 

3 GOSUB 1400 

9 IF BS="YES" THEN 1110 

0 GOTO 1160 

S PRINT “YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARISON,” 

6 PRINT “HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN" 

7 PRINT "THE ROUTE TQ NEW YORK. YOU WILL RECEIVE AN AVERAGE VALUE" 
8 PRINT "FOR YOUR FURS AND THE COST OF YOUR SUPPLIES WILL BE AVERAGE 
1 GOSUB 1400 


4 IF Bs="YES" THEN 1110 

5 GOTO 1198 

7 PRINT “YOU HAVE CHOSEN THE HOST DIFFICULT ROUTE. AT" 
PRINT “FORT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE" 
9 PRINT “FOR YOUR FURS. THE COST OF YOUR SUPPLIES" 

0 PRINT “WILL BE LOWER THAN AT ALL THE OTHER FORTS." 

2 GOSUB 1400 

IF BS="YES" THEN 1110 

GOTO 1250 

LET T#t-160 

PRINT 

LET AT=INT CC. 2*RND(9)4+.70)#10°24.5)/10°2 

LET EtSINT((. 2*RND( 1) +.65)%10°24.5)/10°2 

LET BISENT((.2eRNDCE)4+.75)410°24.5)/10°2 

LET DISENT((.2*RNDC1)+.80)210°24.5)/10°2 

PRINT “SUPPLIES AT FORT HOCHELAGA COST $150.00" 

PRINT “YOUR TRAVEL EXPENSES T@ HOCHELAGA WERE $10.00" 
GOTO 1410 

LET [=I-140 


1201 
1205 
1206 
1207 
1209 
1210 
1212 
1213 
1215 
1216 
1218 
1219 
122 
1221 
1222 
1224 
1225 
1226 
1230 
1234 
1232 
1233 
1235 
1237 
1238 
1239 
1240 
1244 
1246 
1248 
1250 
1254 
1260 
1263 
1270 
1271 
1272 
1273 
1274 
1281 
1282 
4283 
1284 
1291 
1292 
1293 
1295 
1300 
1301 
1303 
1304 
1306 
130? 
1308 
1309 
iat 
1312 
1320 
1321 
1322 
1400 
1402 
1403 
1404 
1410 
4t2 
1at4 
1416 
1417 
1418 
1420 
1422 
1425 
1430 
1432 
1434 
1436 
2000 


2046 


PRINT 

LET MI=INT(C.S*RND(1)+.85)"10°24+.5)/10'2 

LET E1=INT((.T5#RND(T)+.80)*10°2+.5)/10°2 
LET BI=ENT((,2*RND(1)4+.90)#10°24.5)/10°2 

LET P=INT(TO#RND(1)) 49 

IF P<=2 THEN 1216 

IF P<=6 THEN 1224 

IF P<=8 THEN 1226 


IF P<=10 THEN 1235 

LET F(2)=0 

PRINT “YOUR BEAVER WERE TQO HEAVY TO CARRY across” 
PRINT "THE PORTAGE. YOU HAD TO LEAVE THE PELTS BUT FOUND" 
PRINT "THEM STOLEN WHEN YOU RETURNED" 

GOSUB 1244 

GOTO 1414 

PRINT “YOU ARRIVED SAFELY AT FORT STADACONA" 

GOTO 1239 

GOSUB 1430 

PRINT "YOUR CANOE UPSET IN THE LACHINE RAPIDS. you" 


PRINT "LOST ALL YOUR FURS" 

GOSUB 1244 

GOTO 1418 

LET F(4)=0 

PRINT "YOUR FOX PELTS WERE NOT CURED PROPERLY." 
PRENT “NO ONE WILL BUY THEN." 

GOSUB 1244 

GOTO 1410 

PRINT “SUPPLIES AT FORT STADACONA COST $125.00" 
PRINT "YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00" 
RETURN 

LET 1=1-105 

PRENT 

LET HI=INT((.15*RND(1)41.05)410°24.5)/10°2 

LET DI=INTC(.25*RND(1)41.90)810°24.5)710°2 

LET P=INT(1O#RND(1)) 41 

IF P<=2 THEN 1281 

IF Pc=6 THEN 129t 

IF P<=8 THEN 1295 

IF P<=t0 THEN 1306 

PRINT "YOU WERE ATTACKED BY A PARTY OF IROQUOIS." 


PRINT "ALL PEOPLE IN YOUR TRADING GROUP WERE" 
PRINT “KILLED. THIS ENDS THE GAME." 

STOP 

PRINT "YOU WERE LUCKY. YOU ARRIVED SAFELY" 
PRINT "AT FORT NEW YORK," 

GOTO 31t 

GOSUB 1430 


PRINT "YOU NARROWLY ESCAPED AN IROGUGIS RAIDING PARTY." 

PRINT “HOWEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND.” 

GOSUB 1320 

GOTO 1418 

LET BI=BI/2 

LET MI=H1/2 

PRINT "YOUR MINK AND BEAVER WERE DAMAGED ON YOUR TRIP." 

PRINT "YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THESE FURS." 
GOSUB 1320 

OTD 1410 

PRINT "SUPPLIES AT NEW YORK COST $80.00" 

PRINT "YOUR TRAVEL EXPENSES TO NEW YORK WERE $25.00" 

RETURN 

PRINT "DO YOU WANT TO TRADE AT ANOTHER FORT?" 

PRINT "ANSUER YES OR NO", 

INPUT BS 

RETURN 
PRINT 

PRINT 

PRINT 


"YOUR BEAVER SOLD FOR $"sBisF(2)s 
"YOUR FOX SOLD FOR $"sD14F(4) 
PRINT "YOUR ERMINE SOLD FOR $";E1#F (3): 
PRINT "YOUR MINK SOLD FOR $"sHt4F (1) 
LET T=MteF (1) #B1SF (2) +61 4F (3) 40T4F (4) 4 
PRINT 

PRINT “YOU NOW HAVE $"315" INCLUDING YOUR PREVIOUS SAVINGS" 
GOTO 508 

FOR J=1 10 4 

LET F(J)=0 

NEXT J 

RETURN 

DATA "HINK", "BEAVER", "ERMINE", “FOX" 

END 


Golf 


This is a single player golf game. In 
other words it’s you against the golf- 
course (the computer). The program 
asks for your handicap (maximum of 
30) and your area of difficulty. You 
have a full bag of 29 clubs plus a putter. 
On the course you have to contend 
with rough, trees, on and off fairway, 
sand traps, and water hazards. In 
addition, you can hook, slice, go out of 
bounds, or hit too far. On putting, you 
determine the potency factor (or per- 
cent of swing). Until you get the swing 
of the game (no pun intended), you'll 
probably want to use a fairly high 
handicap. 

Steve North of Creative Computing 
modified the original version of this 
game, the author of which is unknown. 


GOLF 
CREATIVE COKPUTING MORRISTOWN, NEW JERSEY 


WELCOME TO THE CREATIVE COMPUTING COUNTRY CLUB, 

AN EIGHTEEN HOLE CHAMPIONSHIP LAYOUT, LOCATED A SHORT 
DISTANCE FROM SCENIC DOWNTOWN HORRISTOWN. THE 
COMMENTATOR WILL EXPLAIN THE GANE AS YOU PLAY. 

ENJOY YOUR GAHE; SEE YOU AT THE 19TH HOLE... 


WHAT IS YOUR HANDICAP? 10 
DIFFICULTIES AT GOLF INCLUDE: 


O=HOOK, I=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, S=PUTTING 


WHICH ONE (ONLY ONE) IS YOUR WORST? 1 


YOU ARE AT TEE OFF HOLE 1 DISTANCE 361 YARDS, PAR 4 
ON YOUR RIGHT IS ADJACENT FAIRWAY 

ON YOUR LEFT 1S ROUGH 

SELECTION OF CLUBS 


YARDAGE DESIRED SUGGESTED CLUBS 


200 TO 280 YARDS 1704 
100 TO 200 YARDS 17 10 13 
0 10 100 YARLS 297 10 23 


WHAT CLUB DO YOU CHOOSE? 1 


SHOT WENT 237 YARDS. I1°S 124 YARDS FROHK THE CUP. 
BALL IS 10 YARDS OFF LINE... IN FAIRWAY 
WHAT CLUB DO YOU CHOOSE? 15 


TOO MUCH CLUB. YOU’RE PAST THE HOLE. 

SHOT WENT 160 YARDS. 17°S 36 YARDS FROM THE CuP. 
BALL 15 0 YARDS OFF LINE... IN FAIRWAY 

WHAT CLUB DO YOU CHOOSE? 23 


YOU MAY NOW GAUGE YOUR DISTANCE BY PERCENT (1 TO 100) 
PERCENT FULL SUING? 25 


71 


ON GREEN 15 FEET FROWN THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUNBER 1 TO 13. 
PUTT POTENCY NUMBER? 5 

PASSED BY CUP. 

ON GREEN 13 FEET FROM THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TO 13. 
PUTT POTENCY NUMBER? 3 

YOU HOLED IT. 


YOUR SCORE ON HOLE 1 WAS 5 
TOTAL PAR FOR 1 HOLES 15 4 YOUR TOTAL IS 5 


YOU ARE AT TEE OFFHOLE 2 DISTANCE 387 YARDS, PAR 4 
ON YOUR RIGHT IS TREES 

ON YOUR LEFT IS TREES 

WHAT CLUB DO YOU CHOOSE? 2 


SHOT WENT 231 YARDS. I7°S 158 YARDS FROM THE CUP. 
BALL IS 16 YARDS OFF LINE... IN FAIRWAY 
WHAT CLUB DO YOU CHOOSE? 14 


ON GREEN 18 FEET FROK THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TO 13. 
PUTT POTENCY NUMBER? 7 

PASSED BY CUP. 

ON GREEN 17 FEET FROM THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TO 13. 
PUTT POTENCY NUMBER? 5 

PASSED BY CUP. 

ON GREEN 4 FEET FROM THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TO 13. 
PUTT POTENEY NUMBER? 2 

PASSED BY CUP. 

ON GREEN 4 FEET FROM THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TO 13. 
PUTT POTENCY NUMBER? 1 

YOU HOLED IT. 


YOUR SCORE ON HOLE 2 WAS 6 
TOTAL PAR FOR 2 HOLES IS 8 YOUR TOTAL 15 i1 


YOU ARE AT TEE OFFHOLE 3 DISTANCE 204 YARDS, PAR J 
ON YOUR RIGHT IS ADJACENT FAIRWAY 

ON YOUR LEFT IS ROUGH 

WHAT CLUB DO YOU CHOOSE? 1 


BALL HIT TREE ~ BOUNCED INTO ROUGH 131 YARDS FROM HOLE. 
WHAT CLUB DO YOU CHOOSE? 14 


YOU DUBBED IT. 

SHOT WENT 35 YARDS. IT’S 94 YARDS FROM THE CUP. 
BALL IS 0 YARDS OFF LINE... IN FAIRWAY 

WHAT CLUB DO YOU CHOOSE? 23 


YOU HAY NOW GAUGE YOUR DISTANCE BY PERCENT (1 TO 100) 
PERCENT FULL SWING? 75 


TOO MUCH CLUB. YOU’RE PAST THE HOLE. 

SHOT WENT 136 YARDS. IT‘S 43 YARDS FROM THE CUP. 
BALL IS 9 YARDS OFF LINE... IN FAIRWAY 

UHAT CLUB DO YOU CHOOSEY 24 


YOU MAY NOW GAUGE YOUR DISTANCE BY PERCENT (t TO 100) 
PERCENT FULL SWING? 30 


P 
Pp 
P 
P. 
P 
P 
Pp 
P 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
210 
230 
240 
245 
250 
260 
270 
290 
271 
292 
293 
294 
295 
276 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
310 
5 


316 PRINT 


PRINT TAB(34); "GOLF" 320 IF $1=0 THEN 1590 


RINT TABC1S); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 330 IF L(O)<1 THEN 1150 

RINT: PRINTsPRINT 340 Keo 

RINT “WELCOME TO THE CREATIVE COMPUTING COUNTRY CLUB," 350 IF L(0)>5 THEN 1190 

RINT "AN EIGHTEEN HOLE CHAMPIONSHIP LAYOUT, LOCATED A SHORT" 360 PRINT “SHOT WENT"; DI; "YARDS. IT/S";D2;"YARDS FROM THE CUP." 
RINT "DISTANCE FROM SCENIC DOUNTOWN HORRISTOUN. THE" 362 PRINT “BALL IS";INT(O};"YARDS OFF LINE... IN “$ 

RINT “COMMENTATOR WILL EXPLAIN THE GANE AS YOU PLAY." 380 GOSUB 400 

RINT “ENJOY YOUR GAME; SEE YOU AT THE 19TH HOLE..." 3970 GOTO 620 

RINTSPRINTs DIN L¢10) 400 IF L(Xd=t THER 480 

G1=18 410 IF L(X)52 THEN 500 


Fel 
PRINT "WHAT IS YOUR HANDICAP"; 
INPUT H 
IF H>30 THEN 470 
IF H<O THEN 470 
PRINT "DIFFICULTIES AT GOLF INCLUDE:" 
PRINT “O=HOOK, t=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, S=PUTTING" 
PRINT “WHICH ONE (ONLY ONE) IS YOUR WORST"; 
INPUT T 
IF T>5 THEN 120 
St=0 
REK 
L(0)=0 
Jed 
0=0 
§2252+1 
K=0 
IF F=1 THEN 310 
PRINT “YOUR SCORE GN HOLE";F-1; "WAS" St 
GOTO 1750 
IF S>P+2 THEN 297 
IF S15P THEN 299 
IF S1=P-1 THER 301 
IF Sl=P-2 THEN 303 
GOTO 310 
PRINT “KEEP YOUR HEAD DOWN.” 
GOTO 310 
PRINT "A PAR, NICE GOING." 
GOTO 310 
PRINT “A BIRDIE." 
GOTO 310 
IF P=3 THEN 306 
PRINT "A GREAT BIG EAGLE." 
GOTO 310 
PRINT “A HOLE IN ONE." 
IF F=t9 THEN 1710 
St=0 


12 


420 IF L(X)=3 THEN 520 

430 IF L(X}=4 THEN 540 

440 IF L(X)*5 THEN 560 

450 IF L(X)=6 THEN 580 

460 PRINT "OUT OF BOUNDS" 
465 GOTO 1490 

470 PRINT “PGA RULES HANDICAP = 0 TO JO" 
472 GOTO 80 

480 PRINT "FAIRWAY" 

490 GOTO 1490 

500 PRINT “ROUGH” 

510 GOTO 1490 

520 PRINT “TREES" 

530 GOTO 1490 

340 PRINT “ADJACENT FAIRWAY" 
550 GOTO 1690 

560 PRINT "TRAP" 

570 GOTO 1690 

580 PRINT "WATER" 

570 GOTO 1690 

620 IF A=1 THEN 629 

621 PRINT “SELECTION OF CLUBS" 


622 PRINT "YARDAGE DESIRED SUGGESTED CLUBS" 
623 PRINT "200 TO 280 YARDS 1 76 4" 

624 PRINT "100 TO 200 YARDS 19 TO 13" 
625 PRINT “ 0 TO 100 YARDS 27 70 23" 
624 Ast 

629 PRENT "WHAT CLUB DO YOU CHOOSE"; 

630 INPUT C 

632 PRINT 


635 IF C<1 THEN 690 

637 IF C>29 THEN 690 

640 IF C>4 THEN 710 

650 IF L(O)<=5 THEN 740 

660 IF C=14 THEN 740 

665 IF C=23 THEN 740 

670 GOTO 490 

680 St=S1~1 

690 PRINT “THAT CLUB IS WOT IN THE Bag." 
493 PRINT 

700 GOTO 420 

710 IF C<12 THEN 690 

720 C=C~6 

730 GOTO 650 

740 S1=S141 

Pal et 

742 IF €>1a THEN 960 

746 IF INT(F/3)=F/3 THEN 952 

752 1F (<4 THEN 756 

754 GOTO 740 

756 IF L(0)=2 THEN 842 

760 IF S197 THEN 847 

770 DIE INTC ( (30-H)¥2.5¢17~- ¢(30-H)#, 254 15)40/2)425¢RND(1)) 
780 DI=INT(DIeW) 

800 IF T=2 THEN 1170 

B30 G=(RND(1)/.8)#(24H+16)*ABS(TAN(D1#.0035)) 
40 D2=INT(SQR(O°2+ABS(D-D1)72)) 

850 IF D-Di<O THEN 870 

860 GOTO 890 

462 PRINT “YOU DUBBED IT." 

864 DI=35 

866 GOTO 830 

867 IF BX200 THEN 1300 

968 GOTO 770 

870 IF D2¢20 THEN 890 

880 PRINT “TOO HUCH CLUB. YOU’RE PAST THE HOLE." 
890 B=D 

900 D=D2 

910 IF D2>27 THEN 1020 

920 IF D2>20 THEN 1100 

930 IF D2>.5 THEN 1120 

940 L(0)29 

950 GOTO 1470 

952 IF S240+(109(F-1)/18)< (Ft )4(724((HT)/,85)9/18 THEN 956 
954 GOTO 752 

956 O=0+1 

957 IF St/2¢>INT(S1/2) THEN 1011 

958 GOTO 842 

760 PRINT “YOU HAY NOW GAUGE YOUR DISTANCE BY PERCENT (1 10 100)" 
961 PRINT “PERCENT FULL SUING"; 

970 INPUT Ws W=U/100 

972 PRINT 

980 IF U1 THEN 680 

985 IF L(0)=5 THEN 1280 

990 IF C214 THEN 740 

1000 C=C~10 

1010 GOTO 760 

1011 IF D<95 THEN 862 

1012 PRINT “BALL HIT TREE - BOUNCED INTO ROUGH";D-75;"YARDS FRON HOLE." 
1014 D=D-75 

1018 GOTO 620 


73 


1020 IF 0<30 THEN 1150 

1022 IF J>0 THEN 1150 

1030 IF T>0 THEN 1070 

1035 S9=(S251)/15 

1036 IF INT(S9)=S9 THEN 1075 

1040 PRINT "YOU HOOKED~ "; 

1050 L(O)=L(2) 

1055 IF 0>45 THEN 1092 

1060 GOTO 320 

1070 S9=(S241)/15 

1071 IF INT(S9)=S9 THEN 1040 

1075 PRINT “YOU SLICED- "3 

1080 L(D)=L(1) 

1090 GOTO 1055 

1092 PRINT "BADLY." 

1094 GOTO 320 

1100 L(0)=5 

1t10 GOTO 320 

1120 L(o)=a 

1130 D2=INT(D2*3) 

1140 GOTO 1380 

1150 L(O)=4 

1160 GOTO 320 

1170 DI=INT(.85¢D1) 

1180 GOTO 630 

1190 IF L(0)>6 THEN 1260 

4200 PRINT “YOUR SHOT WENT INTO WATER." 
1210 St=5141 

{220 PRINT “PENALTY STROKE ASSESSED. HIT FROM PREVIOUS LOCATION." 
1230 JeJ+i 

1240 L(O)=4 

1242 D=B 

1250 GOTO 620 

1260 PRINT "YOUR SHOT WENT OUT OF BOUNDS." 
1270 GOTO 1210 

4280 IF T=3 THEN 1320 

1300 D2=4+ (SINT ((80/(40-H)) #RND C1) )) 
1310 GOTO 1380 

1320 IF RND(1)>N THEN 1360 

1330 NENs,2 

1340 PRINT “SHOT DUBBED, STILL IN TRAP." 
1350 GOTO 620 

1360 H=.8 

1370 GOTO 1300 

1380 PRINT “ON GREEN";D2;"FEET FRON THE PIN." 
1381 PRINT “CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1! TO 13." 
1382 PRINT “PUTT POTENCY NUMBER"; 
1400 INPUT I 

1410 St=St+1 

1420 IF S141-P>(H¥.072)42 THEN 1470 
1425 IF K>2 THEN 1470 

142B K=K+T 

1430 IF T=4 THEN 1530 

1440 D2=D2-Le(A+24RND (191.5 

1450 IF D2<-2 THEN 1560 

1460 IF D2>2 THEN 1500 

1470 PRINT “YOU HOLED iT.” 

1472 PRINT 

1480 F=F+i 

1490 GOTO 230 

1500 PRINT “PUTT SHORT.” 

1505 D2=INT(D2) 

1510 GOTO 1380 

1930 D2=D2-1¥(4+15HND(1)) 41 

1550 GOTO 1450 

1560 PRINT “PASSED BY CUP." 

4570 D2=-D2 

1580 GOTO 1505 

1590 REAB D,P,L(1),L(2) 

1595 PRINT 

1600 PRINT “YOU ARE AT TEE OFFHOLE";F; "DISTANCE" sD;"YARDS, PAR";P 
1605 63=63+P 

1620 PRINT “ON YOUR RIGHT IS "; 

1630 X=1 

1640 GOSUB 400 

1650 PRINT "ON YOUR LEFT IS "; 

1660 X=2 

1670 GOSUB 400 

1480 GOTO 620 

1690 RETURN 


1700 DATA 361,4,4,2,389,4,5,3,206,3,4,2,500,5,7,2 
1702 DATA 408,4,2,4,357,4,6,4,424,4,4,2,588,4,4,4 
1704 DATA 196,5,7,2,400,4,7,2,560,5,7,2,152,3,2)2 
1706 DATA 357,4,4,4,294,4,2,4,475,5)2)3)375,4) 4,2 
1708 DATA 180,3,6,2,950,5,6,4 


1710 PRINT 

1750 62=62+81 

1760 PRINT “TOTAL PAR FOR’SF-1;"HOLES IS°3G3;" YOUR TOTAL IS";62 
1761 TF GisF-i THEN 1770 

1765 GOTO 292 

1770 END 


GOMOKO or GOMOKU is a 
traditional game of the Orient. It is 
played by two people on a board of 
intersecting lines (19 left-to-right lines, 
19 top-to-bottom lines, 361 intersec- 
tions in all). Players take turns. During 
his turn, a player may cover one 
intersection with a marker; (one player 
uses white markers; the other player 
uses black markers). The object of the 
game is to get five adjacent markers in 
a row, horizontally, vertically or along 
either diagonal. 

Unfortunately, this program does not 
make the computer a very good player. 
It does not know when you are about to 
win or even who has won. But some of 
its moves may surprise you. 

The original author of this program is 
Peter Sessions of People’s Computer 
Company. 


GONOKO 
CREATIVE COHPUTING MORRISTOWN, NEW JERSEY 


WELCOME TO THE ORIENTAL GAME OF GOHOKO. 


THE GANE IS PLAYED ON AN N BY N GRID OF A SIZE 

THAT YOU SPECIFY. DURING YOUR PLAY, YOU MAY COVER ORE GRID 
INTERSECTION WITH A HARKER. THE OBJECT OF THE GAWE IS TO GET 
3 ADJACENT MARKERS IN A ROW -- HORIZONTALLY, VERTICALLY, OR 
DIAGOWALLY. ON THE BOARD DIAGRAM, YOUR HOVES ARE MARKED 
WITH A 71’ AND THE COMPUTER HOVES WITH A 2°. 


THE COMPUTER DOES NOT KEEP TRACK OF WHO HAS WON. 
TO END THE GAME, TYPE -1,~1 FOR YOUR MOVE. 


WHAT 1S YOUR BOARD SIZE (HIN 7/ HAX 19)7 10 


WE ALTERNATE MOVES. YOU GO FIRST... 


YOUR PLAY (1,J)? 4,3 YOUR PLAY (1,J)? 3,3 
0000000000 6000000000 
000000000 0 ¢000000000 
oo 00000006 0 0010000000 
oot 000000 0 oo611 000000 
00 20006000 0 0 002210000 0 
690000600 00 6000020000 
9000000000 0000000000 
9000000000 6000000020 
9000000000 6000000000 
00 0 00 00 0 6 0000000000 

YOUR PLAY (1,J)? 4,4 YOUR PLAY (I,J)? 2,2 
60000090000 6000000000 
ooo 0000000 610000000 0 
0000000000 0210000000 
oo1to00000 oo ftoo00000 
0022000000 060221600060 
0900000000 0 60060002000 0 
0000000000 060000000 0 0 
0000000000 00000000 2 0 
00000000 0 0 90000900009 
6000000000 6000000000 


your 
TLLE 
YOUR 


e2oonoceceoe 3 


2P 
4P 
épP 
8D 
10 

20 

30 

40 

50 

60 

70 

80 

90 

110 
5 
116 
117 
120 
210 
300 
310 
320 
330 
340 
Alo 
420 
44g 
500 
510 
540 
570 
580 
590 
600 
Si0 
630 
640 
710 
7350 


PLAY (1,007 5, YOUR PLAY (I,J)? 1,1 

GAL MOVE. TRY AGAIN... 100000600000 
PLAY (I,J)? 9,5 2100606060000 0 
60000000 0 90210000000 
060000600 0 «0 oor too 0 0 00 
660000000«~%0 0022100000 
o1 1000900 0 60000200 0 0 
60221060000 «0 6000000000 
000029000 0 6000000020 
6006000000 0 0000000000 
060000 00 0 6000000000 
00000000 0 

060600000 0 0 YOUR PLAY (1,4)? -1,71 


THANKS FOR THE GANE!! 
PLAY AGAIN (1 FOR YES, 0 FOR NO)? 0 


RINT TAB(33) ;"GOHOKO" 
RINT TAB(IS)S"CREATIVE COMPUTING NORRISTOUN, NEW JERSEY" 
RINT: PRINTSPRINT 
IW a9, 19) 
PRINT “WELCOME TO THE ORIENTAL GAME OF GONOKO.* 
PRINT: PRINT “THE GAME IS PLAYED ON AN N BY N GRID OF A SIZE" 
PRINT “THAT YOU SPECIFY. DURING YOUR PLAY, YOU HAY COVER ONE GRID" 
PRINT “INTERSECTION WITH A MARKER. THE OBJECT OF THE GAHE IS 10 GET" 
PRINT “5 ADJACENT MARKERS IN A ROW -- HORIZONTALLY, VERTICALLY, OR" 
PRINT “DIAGONALLY. ON THE BOARD DIAGRAH, YOUR MOVES ARE HARKED" 
PRINT “WITH A “1% AND THE COMPUTER MOVES WITH A “2°.” 
PRINT: PRINT “THE COMPUTER DOES NOT KEEP TRACK OF WHO HAS WON.” 
PRINT “TQ END THE GAHE, TYPE -1,-1 FOR YOUR HOVE.": PRINT 

PRINT “WHAT IS YOUR BOARD SIZE (HIN 7/ MAX 19)"¢: INPUT N 

IF W>6 THEN 117 

6OTO 120 

IF N<20 THEN 210 

PRINT “I SAID, THE MINIMUM IS 7, THE MAXIMUM 15 19.": GOTO 110 

FOR I=1 TO NsFOR J=1 TO Ws ACX,Y)=O: NEXT Jz NEXT 1 

PRINTs PRINT “WE ALTERNATE MOVES. YOU GO FIRST...": PRINT 

PRINT “YOUR PLAY (1,J)"ss INPUT I,J 

If 15-1 THEN 980 

XeI: YeJ: GOSUB 910: IF L=1 THEN 410 

PRINT “ILLEGAL HOVE. TRY AGAIN...": GOTO 310 

IF ACI,J)=0 THEN 440 
PRINT “SQUARE OCCUPIED. 

ACI, J)=1 

REN #e% COMPUTER TRIES AN INTELLIGENT HOVE #99 

FOR Ee-1 10 ts FOR F=-1 10 1: IF E+F-EsF=0 THEN 590 

XeI+F: YeJ+Fs GOSUB 910 

IF L=0 THEN 590 

IF A(K,Y)=1 THEN 710 

NEXT Fr NEXT E 

REH ##* COMPUTER TRIES A RANDOM NOVE #44 

XSINTOM#RNDC1)¢1)2 YEINTCWERNDC1)41)2 GOSUB 910: IF L=O THEN 610 

IF A(K,Y)G0 THEN 610 

AUX, Y)=22 BOSUB 8102 BOTO 310 

XSI-E: YeJ-F: GOSUB 910 

IF L=0 THEN 410 


TRY AGAIN,.."s GOTO 310 


740 GOTO 650 

800 REH *#* PRINT THE BOARD ++ 

810 FOR I=t TO Ns FOR Jet TO Ns PRINT ACI,J); 
840 NEXT Js PRINT: NEXT [s PRINT: RETURN 
910 Lets IF X<i THEN 970 

920 IF XN THEN 970 

930 IF Y<t THEN 970 

940 IF YON THEN 970 

950 RETURN 

970 Le0: RETURN 

980 PRINT: PRINT “THANKS FOR THE GAHE!!” 


985 PRINT “PLAY AGAIN (1 FOR YES, 0 FOR NO)";: 


INPUT Q 


990 IF QG=1 THEN 110 
9997 END 
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In Program GUESS, the computer 
chooses a random integer between 0 
and any limit you set. You must then try 
to guess the number the computer has 
chosen using the clues provided by the 
computer. 

You should be able to guess the 
number in one less than the number of 
digits needed to represent the number 
in binary notation —i.e., in base 2. This 
ought to give you a clue as to the 
optimum search technique. 

GUESS converted from the original 
program in FOCAL which appeared in 
the book ‘Computers in_ the 
Classroom” by Walt Koetke of Lex- 
ington High School, Lexington, 
Massachusetts. 


PRINT TABCA3); "GUESS" 


PRINTIPRINT: PRINT 

PRENT "THES 1S A NUMBER GUESSING GAME. ILL THINK“ 
PRINT "OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT.” 
PRINT "THEN YOU HAVE TO GUESS WHAT IT 15.” 
PRINT 
PRINT “UHAT LIMIT DO YOU WANT"; 

INPUT L 

PRINT 

LI=INT(LOG(L)/LOG(2)) +t 

12 PRINT “I°K THINKING OF A NUMBER BETWEEN 1 AND "Gi 
13 G=1 

14 PRINT “NOW YOU TRY TO GUESS WHAT IT 18." 

13 MSINTCL*RND(1)t1) 
20 INPUT W 
2t IF N>O THEN 25 
22 GOSUB 70 
23 GOTO 1 
25 IF NeN THEN 50 
30 G=G+1 
31 IF NOW THEN 40 
32 PRINT “TOO LOW. TRY A BIGGER ANSWER.“ 
33 GOTO 20 

40 PRINT "TOO HIGH. TRY A SMALLER ANSWER," 

42 GOTO 20 
SO PRINT “THAT“S ET! YOU GOT IT IN";G;"TRIES." 
52 IF G<L1 THEN 58 

54 IF G=L1 THEN 60 

56 PRINT “YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY"SLI 
57 GOTO 65 

58 PRINT “VERY “5 

60 PRINT “6000.” 

65 GOSUB 70 

66 GOTO 12 

70 FOR H=1 TO 5 

71 PRINT 

72 WEXT H 

73 RETURN 

99 END 


ON & OA oo & Nm 


— 
“2 


PRINT TABCTS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
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GUESS 
CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 


THIS IS A NUMBER GUESSING GANE. I°LL THINK 
OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT. 
THEN YOU HAVE TO GUESS WHAT IT IS. 


WHAT LIMIT DO YOU WANT? 200 


TM THINKING OF A NUMBER BETWEEN 1 AND 200 
NOW YOU TRY TO GUESS WHAT IT IS. 


7 100 

TOO LOW. TRY A BIGGER ANSUER. 

7 150 

TOO HIGH. TRY A SHALLER ANSWER. 
7125 

TOO HIGH. TRY A SMALLER ANSWER. 
7112 

TaQ LOW. TRY A BIGGER ANSUER. 
7118 

TOO LOW. TRY A BIGGER ANSUER. 

7 123 

THAT’S IT! YOU GOT IT IN 6 TRIES. 
VERY GOOD. 


I’M THINKING OF A NUMBER BETWEEN 1 AND 200 
NOU YOU TRY TO GUESS WHAT IT IS. 


7 100 

Post TRY A SMALLER ANSUER. 
Too HIGH. TRY A SMALLER ANSWER. 
TG TRY A SMALLER ANSUER. 
100 HIGH. TRY A SMALLER ANSUER. 
100 HIGH. TRY A SMALLER ANSWER. 
00 LOU. TRY A BIGGER ANSUER. 
00 LOU. TRY A BIGGER ANSWER. 
00 LOU. TRY A BIGGER ANSWER. 
100 Lou. TRY A BIGGER ANSWER. 
00 Lov. TRY A BIGGER ANSWER, 
tao Lo. TRY A BIGGER ANSWER. 
10 Gh TRY A SMALLER ANSWER. 


THAT’S IT! YOU GOT IY IN 13 TRIES. 
YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY 8 


C- 


76 


Gunner 


GUNNER allows you to adjust the 
fire of a field artillery weapon to hit a 
stationary target. You specify the 
number of degrees of elevation of your 
weapon; 45 degrees provides max- 
imum range with values under or over 
45 degrees providing less range. 

You get up to five shots to destroy the 
enemy before he destroys you. Gun 
range varies between 20,000 and 
60,000 yards and burst radius is 100 
yards. You must specify elevation 
within approximately 0.2 degrees to get 
a hit. 

Tom Kloos of the Oregon Museum of 
Science and Industry in Portland, 
Oregon originally wrote GUNNER. 
Extensive modifications were added by 
David Ahl. 


10 PRINT TAB(30); "GUNNER" 

20 PRINT TAB(IS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 

3O PRINTSPRINTSPRINT 

130 PRINT "YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO A GUN" 


140 PRINT "CREW, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE” 
150 PRINT "WILL PLACE A PROJECTILE ON TARGET. A HIT WITHIN 100 YARDS" 


160 PRINT “OF THE TARGET WILL DESTROY IT." : PRINT 
170 ReLNT(40000*RND(1)4+20000) 

180 PRINT “MAXIMUM RANGE OF YOUR GUN IS ";R;" YARDS." 
185 Z=0 

190 PRINT 

175 St=0 

200 THINT(R#(. 1+. 8#RND(1))) 

210 S$=0 

220 GOTO 370 

230 PRINT “MINIMUM ELEVATION IS ONE DEGREE." 

240 GOTO 390 

250 PRINT “MAXIKUH ELEVATION IS 89 DEGREES." 

260 GOTO 3970 

270 PRINT "OVER TARGET BY"; ABS(E);"YARDS." 

280 GOTO 3970 

290 PRINT "SHORT GF TARGET BY"ABS(E);"YARDS." 

300 GOTO 3970 


320 PRINT “see TARGET DESTROYED see "SSe"ROUNDS OF AMMUNITION EXPENDED 


325 St=S1+S 

330 IF Z=4 THEN 490 

340 22741 

345 PRINT 

350 PRINT "THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY..." 
460 GOTG 200 
370 PRINT “ 
380 PRINT 
390 PRINT 
400 INPUT "ELEVATION" SB 

420 IF B>89 THER 250 

430 IF B<1 THEN 230 

44Q S=S+t 

442 IF $46 THEN 450 

444 PRINTSPRINT “BOOM $1!!! YOU HAVE JUST BEEN DESTROYED "“; 
446 PRINT "BY THE ENENY." : PRINT ©: PRINT : PRINT +: GOTO 495 
450 B2=2#8/57.3 : T=ReSIN(B2) 2 X=T-1 s E=INT(X) 

460 IF ABS(E)<100 THEN 320 

470 IF E>#00 THEN 290 

480 GOTO 270 

490 PRINT : PRINT : PRINT “TOTAL ROUNDS EXPENDED WERE: "3S! 

492 IF S$1>18 THEN 495 

493 PRINT "NICE SHOOTING |!" : GOTO 500 

495 PRINT “BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!" 
300 PRINT : INPUT "TRY AGAIN (Y OR N)“3Z$ 

SiO IF Z$="¥" THEN 170 

520 PRINT “OK. RETURN TO BASE CANP." 

999 END 


DISTANCE TO THE TARGET IS"T; "YARDS." 


GUNNER 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO A GUN 
CREW, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE 
WILL PLACE A PROJECTILE ON TARGET. A HIT WITHIN 100 YARDS 
OF THE TARGET WILL DESTROY IT. 


NAXIMUH RANGE OF YOUR GUN IS 55684 YARDS. 
DISTANCE TO THE TARGET IS 15755 YARDS. 

ELEVATION? 9 

GVER TARGET BY 1452 YARDS. 


ELEVATION? 8 
SHORT OF TARGET BY 407 YARDS. 


ELEVATION? 8.2 
*t# TARGET DESTROYED *#* 3 ROUNDS OF AMMUNITION EXPENDED 


THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY... 
DISTANCE TO THE TARGET IS 11349 YARDS. 

ELEVATION? 84 

OVER TARGET BY 241 YARDS. 


ELEVATION? 84.1 
*e* TARGET DESTROYED #+* 2 ROUNDS OF AMMUNITION EXPENDED 


THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY... 
DISTANCE TO THE TARGET IS 19146 YARDS. 

ELEVATION? 11 

OVER TARGET BY 1713 YARDS. 


ELEVATION? 10 
SHORT OF TARGET BY 102 YARDS. 


ELEVATION? 10.06 
+e TARGET DESTROYED #**# 3 ROUNDS OF AMMUNITION EXPENDED 


THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY... 
DISTANCE TO THE TARGET IS 10792 YARDS. 

ELEVATION? 84.3 

OVER TARGET BY 227 YARDS. 


ELEVATION? 84.4 
+e TARGET DESTROYED *%# 2 ROUNDS OF AMMUNITION EXPENDED 


THE FORWARD GBSERVER HAS SIGHTED MORE ENEWY ACTIVITY... 
DISTANCE TO THE TARGET IS 36976 YARDS. 

ELEVATION? 21 

OVER TARGET BY 282 YARDS, 

ELEVATION? 20.8 

*#% TARGET DESTROYED #+# 2 ROUNDS OF AMMUNITION EXPENDED 

TOTAL ROUNDS EXPENDED WERE: 12 

NICE SHOOTING |! 


TRY AGAIN (Y OR ND? N 
QK. RETURN TO BASE CAMP. 


Hammurabi 


In this game you direct the ad- 
ministrator of Sumeria, Hammurabi, 
how to manage the city. The city 
initially has 1,000 acres, 100 people and 
3,000 bushels of grain in storage. 

You may buy and sell land with your 
neighboring city-states for bushels of 
grain — the price will vary between 17 
and 26 bushels per acre. You also must 
use grain to feed your people and as 
seed to plant the next year’s crop. 

You will quickly find that a certain 
number of people can only tend a 
certain amount of land and that people 
starve if they are not fed enough. You 
also have the unexpected to contend 
with such as a plague, rats destroying 
stored grain, and variable harvests. 

You will also find that managing just 
the few resources in this game is nota 
trivial job over a period of say ten years. 
Thecrisis of population density rears its 
head very rapidly. 

This program was originally written 
in Focal at DEC; author unknown. 
David Ahi converted it to BASIC and 
added the 10-year performance 
accessment. If you wish to change any 
of the factors, the extensive remarks in 
the program should make modification 
fairly straightforward. 

Note for trivia buffs: somewhere 
along the line an m was dropped out of 
the spelling of Hammurabi in the Ahl 
version of the computer program. This 
error has spread far and wide until a 
generation of students who have used 
this program now think that Ham- 
murabi is the incorrect spelling. 


HAHURABI 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


TRY YOUR HAND AT GOVERNING ANCIENT SUHERIA 
FOR & TEN-YEAR TERM OF OFFICE. 


HAMURABI: I BEG TO REPORT TO YOU, 


IN YEAR 1 , 0 PEOPLE STARVED, 5 CANE TO THE CITY, 


POPULATION IS NOU 100 

THE CITY NOW OWNS 1000 ACRES. 

YOU HARVESTED 3 BUSHELS PER ACRE. 
RATS ATE 200 BUSHELS. 

YOU NOU HAVE 2800 BUSHELS IN STORE. 


LAND IS TRADING AT 24 BUSHELS PER ACRE. 
HOU WANY ACRES DO YOU WISH TO BUY? 10 
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HOW HANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE? 2000 


HOW HANY ACRES DO YOU WISH TO PLANT WITH SEED? 990 


HAMURABI: I BEG TO REPORT TO You, 

IN YEAR 2, 0 PEOPLE STARVED, 5 CAME TO THE CITY, 
POPULATION IS NOW 105 

THE CITY NOU OWNS 1010 ACRES. 

YOU HARVESTED 3 BUSHELS PER ACRE. 

RATS ATE 16 BUSHELS. 

YOU NOW HAVE 3019 BUSHELS IN STORE. 


LAND IS TRADING AT 21 BUSHELS PER ACRE. 
HOW HANY ACRES DO YOU WISH TO BUY? 25 


HOW HANY BUSHELS BO YOU WISH TO FEED YOUR PEOPLE? 2000 


HOW HANY ACRES DO YOU WISH TD PLANT WITH SEED? 1000 
HAKURABI: THINK AGAIN. YOU HAVE ONLY 

494 BUSHELS OF GRAIN. NOW THEN, 
HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED? 500 


HAHURABI: I BEG TO REPORT TO YoU, 

IN YEAR 3°, 5S PEOPLE STARVED, 5 CANE TO THE CITY, 
A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED. 
POPULATION IS NOU 52 

THE CITY NOW OUNS 1035 ACRES. 

YOU HARVESTED 1 BUSHELS PER ACRE. 

RATS ATE 0 BUSHELS. 

YOU NOW HAVE 744 BUSHELS IN STORE. 


LAND IS TRADING AT 17 BUSHELS PER ACRE. 
HOU MANY ACRES DO YOU WISH TO BUY? 0 
HOW HANY ACRES DO YOU WISH TO SELL? 25 


HOW HANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE? 1000 


HOU MANY ACRES DO YOU WISH TO PLANT WITH SEED? 500 
HAHURABI: THINK AGAIN. YOU HAVE ONLY 

169 BUSHELS OF GRAIN. NOW THEN, 
HOW HANY ACRES DO YOU WISH TO PLANT WITH SEED? 300 


HAMURABI: I BEG TO REPORT TO YOU, 

IN YEAR 4 , 2 PEOPLE STARVED, 12 CAME TO THE CITY, 
POPULATION 18 NOW 42 

THE CITY NOW OWNS 1010 ACRES. 

YOU HARVESTED 1 BUSHELS PER ACRE. 

RATS ATE 0 BUSHELS. 

YOU NOW HAVE 319 BUSHELS IN STORE. 


LAND IS TRADING AT 23 BUSHELS PER ACRE. 

HOW HANY ACRES DO YOU WISH TO BUY? 0 

HOW HANY ACRES DO YOU WISH TO SELL? 500 

HOW HANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE? 500 
HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED? 230 
YOU STARVED 37 PEOPLE IN ONE YEARI!! 

DUE 10 THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY 
BEEN IMPEACHED AND THROWN QUT OF OFFICE BUT YOU HAVE 
ALSO BEEN DECLARED NATIONAL FINKIt!! 


SO LONG FOR NOW. 


S$ 
AOS 
d 


10 PRINT TAB(32);"“HAMURABI" 
20 PRINT TABCIS);"CREATIVE COMPUTING HORRISTOUR, NEW JERSEY" 
30 PRINTsPRINT: PRINT 


80 PRINT “TRY YOUR HAND AT GOVERNING ANCIENT SUNERIA" 

90 PRINT “FOR A TEN-YEAR TERM OF OFFICE."sPRINT 

95 DIO: P1=0 

100 Z=0: P=95:5=2800: H=3000: E=H-S 

110 Y23: ASH/Y: I=S: Q=1 

210 D=0 

215 PRINT:PRINTIPRINT “HANURABI: I BEG TO REPORT TO YOU,": Z=Z+1 
217 PRINT “IN YEAR"SZ3","sDs"PEOPLE STARVED, "S1s"CAHE [TO THE CITY," 
218 P=PHI 

227 IF @>0 THEN 230 

228 P=INT(P/2) 

229 PRINT “A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED." 

230 PRINT “POPULATION IS NOW"SP 

232 PRINT “THE CITY NOW OUNS"SA; "ACRES." 

235 PRINT "YOU HARVESTED";¥s"BUGHELS PER ACRE." 

250 PRINT "RATS ATE";E;"BUSHELS." 

260 PRINT “YOU NOW HAVE"3S;"BUSHELS IN STORE.": PRINT 

270 IF Z=11 THEN 860 

310 C=INT(LO#RND(1))2 Y=C4I7 


312 
320 
321 
322 
323 
324 
330 
an 
334 
340 
3a 
342 
343 
344 
350 
400 
410 
4 
412 
alg 
420 
421 
422 
430 
440 
AM 
442 
444 
AAS 
AMG 
447 
449 
450 
452 
453 
454 
455 


PRINT “LAND IS TRADING AT";¥;"BUSHELS PER ACRE.” 
PRINT “HOW MANY ACRES DO YOU WISH TO BUY"; 

INPUT O: IF Q<0 THEN 850 

IF YeO<=S THEN 330 

GOSUB 710 

GOTO 320 

IF G=0 THEN 340 

AAT: SeS-YeO: C=0 

GOTO 400 

PRINT “HOW HANY ACRES DO YOU WISH TO SELL"; 
INPUT QO: IF Q<0 THEN 850 

IF Q@<A THEN 350 

GOSUB 720 

GOTO 340 

A=A-Q: G=S+¥#0: C=0 

PRINT 

PRINT “HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE"; 
INPUT @ 

IF @<0 THEN 850 ~ 

REH #e# TRYING TO USE MORE GRAIN THAN IS IN SILOS? 
IF @<=S THEN 430 

GOSUB 710 

GoTo 410 

S=S-Q: C=ts PRINT 

PRINT "HOU MANY ACRES DO YOU WISH TO PLANT WITH SEED"; 
INPUT Dz IF D=0 THEN 511 

IF D<O THEN 850 

REH *## TRYING TO PLANT MORE ACRES THAN YOU OUN? 
IF D<=A THEN 450 

GOSUB 720 

GOTO 440 

REM #¢# ENOUGH GRAIN FOR SEED? 

IF INT(D/2)<=8 THEN 455 

GOSUB 710 

GOTO 440 

REM #06 ENOUGH PEOPLE 70 TEND THE CROPS? 

IF D<10eP THEN 510 
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460 
470 
510 
Su 
512 
515 
$21 
922 
523 
525 
530 
Sut 
532 
533 
539 
540 
oat 
342 
550 
531 
352 


553. 


555 
560 

565 
566 

567 

710 
7 

712 
720 

730 

800 
801 

850 
55 
B57 
460 
842 
845 
870 
a75 
880 
885 
870 
92 
a5 
876 
900 
905 
940 
Fag 
950 
940 
965 
970 
975 
990 
995 
999 


PRINT "BUT YOU HAVE GNLY°;P;"PEOPLE 10 TEND THE FIELDS! 
Gato 440 

S*S~INT(D/2) 

GOSUB 800 

REW ¢#* A BOUNTIFUL HARVEST! 

YeC: H=De¥: E=0 

GOSUB 800 

IF INT(C/2)<9C/2 THEN 530 

REM ### RATS ARE RUNNING WILD!! 
E=INT(S/C) 

§=S-E+H 

GOSUB 800 

REM e#* LET“S HAVE SOME BABIES 
THINT(Ce(20eA+S)/P/100+1) 

REN @¢* HOW HANY PEOPLE HAD FULL TUNNIES? 
C=1NT (8/20) 

REK ##* HORROB, A 15% CHANCE OF PLAGUE 
G=INT(10#(2#RND(1)~.35)) 

IF PCC THEN 210 

REM ##% STARVE ENOUGH FOR IMPEACHMENT? 
D=P~C: IF B>.45#P THEN 540 
PESC(Z-£) eP 4 4De100/P)/Z 

P=C: DieDi+D: GOTG 215 

PRINT: PRINT “YOU STARVED"; D;"PEQPLE IN ONE YEAR!!!“ 


NOU THEN," 


PRINT "DUE TO THIS EXTREME MISHANAGEMENT YOU HAVE NOT ONLY” 
PRINT “BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YGU HAVE" 
PRINT “ALSO BEEN DECLARED NATIONAL FINK! !i!"s GOTO 9970 

PRINT "HANURABI: THINK AGAIN. YOU HAVE ONLY” 

PRINT S;"BUSHELS OF GRAIN. NOU THEN,“ 

RETURN 

PRINT “HAHURABI: THINK AGAIN. YOU OWN ONLY";A;“ACRES. NOW THEN,” 
RETURN 

C=INTCRRD( 1) #5) +1 

RETURN 

PRINT: PRINT “HAMURABIs I CANNOT DO WHAT YOU WISH." 


PRINT "GET YOURSELF ANOTHER STEWARD! ISH!" 

GOTO 990 

PRINT “IN YOUR 10-YEAR TERN OF OFFICE," 3Pi;"PERCENT OF THE" 

PRINT "POPULATION STARVED PER YEAR ON THE AVERAGE, I.E. A TOTAL OF" 
PRINT DI;"PEOPLE BIED!!": L=a/P 

PRINT “YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH" 

PRINT Ly“ACRES PER PERSON.": PRINT 

IF Pid3d THEN 545 

IF L<? THEN 965 

IF PI>10 THEN 940 

IF L<? THEN 940 

IF IF P1>3 THEN 960 

IF L<tO THEN 9460 

PRINT "A FANTASTIC PERFORMANCE!!! CHARLEHAGNE, DISRAELI, AND" 
PRINT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!":GOTO 790 
PRINT “YOUR HEAVY-HANDED PERFORMANCE SHACKS OF NERO AND IVAN IV." 
PRINT “THE PEOPLE (REMAINING) FIND YOU AN UNPLEASANT RULER, AND,” 
PRINT “FRANKLY, HATE YOUR GUTS!!":G0TO 770 

PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT" 
PRINT “REALLY UASN’T TOO BAD AT ALL. ";INT(P*.Q*RND(V)); "PEOPLE" 
PRINT "DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR" 
PRINT “TRIVIAL PROBLEKS.“ 

PRINT: FOR N=t TO 10: PRINT CHR9(7)52 NEXT WN 

PRINT "SO LONG FOR NOW.": PRINT 

END 


This is a simulation of the word 20 PRINT TABCIS}y*CREATIVE. COMPUTING . 
guessing game, hangman. The com- 25 PRINT?PRINTsPRINT UTING MORRISTOWN, NEW JERSEY 
puter picks a word, tells you how many 30 DIM P8(12,12),L$(20),D$(20),N$(26),U(50) 
letters in the word it has picked and 40 Cel: N=50 
then you guess a letter in the word. If 50 FOR I=1 TO 20: Ds(T)="-" HEXT Iz H=O 
you are right, the computer tells you 60 FOR T=1 TO 26: NS(L)s"": NEXT I 

h hat | bel if 70 FOR I=1 TO 12: FOR J=¥ TO 12: PS(1,J)=" "2 NEXT Jt HEXT I 
where that letter belongs; if your letter 80 FOR [= TO 2: PSC1,1)="X"s NEXT I 
is wrong, the computer starts to hang 90 FOR I=1 10 7: PS(1,1)="X"s NEXT: P§(2,7)="x" 
you. You get ten guesses before you 99 TF CCH THEN 100 . 
are completely hanged: 7 PRINT "YOU DID ALL THE WORDS!!": STOP 

Head 00 Q=INTCN#RND(1))+1 
110 IF UCO)=1 THEN 100 
Body 115 UCM)=ts CaC+1: RESTORE: T1=0 
Right and Left Arms 150 FOR I=1 TO Os READ A$: NEXT I 
: 160 L=LENCAS): FOR I=1 TO LENCAS): L$(1)=HIDS(AS,I, 1): NEXT I 
mont and ren reas 170 PRINT "HERE ARE THE LETTERS YOU USED:" , 
ight and Left Hands 160 FOR I= 10 26: PRINT NSCI)32 IF NSCI+1)2°" THEN 200 
Right and Left Feet 190 PRINT ", "3: NEXT I 
You may add words in Data 200 PRINT: PRINT: FOR I=1 TO Lz PRINT D$(I)¢: NEXT I: PRINT: PRINT 
; ; 210 INPUT "WHAT IS YOUR SUESS":6$: R=0 
statements following Statement 508; 220 FOR I=t TO 26: IF NS(1)="" THEN 250 
however, if you do, you must also 230 IF GS=HS(I) THEN PRINT "YOU GUESSED THAT LETTER BEFORE!"s GOTO 170 
change the random word selector in 240 NEXT I: PRINT "PROGRAM ERROR. RUN AGAIN“: STOP 
Statement 40. 250 NS(T)=6$: TisT1+1 

David AhI modified this program into B70 MOT de ee tet yes (168 THEN 280 
. 270 NEXT I: IF R=O THEN 290 
its current form from one created by 275 GOTO 300 
Kenneth Aupperle of Melville, New 280 DS(1)=G$: R=R+1: GOTO 270 
York. 290 H=H+1: GOTO 400 


300 FOR I=? TO L: IF D$(1)="-" THEN 320 

3tO NEXT I: GOTO 390 

320 PRINT: FOR I=1 TO Ls PRINT D$(E);s NEXT Is PRINT: PRINT 

330 INPUT “WHAT 18 YOUR GUESS FOR THE WORD"; BS 

340 IF AS=B$ THEN 340 

350 PRINT "WRONG. TRY ANOTHER LETTER.": PRINT: GOTO 170 

360 PRINT “RIGHT?! IT TOBK YOU" STi; "GUESSES!" 

370 INPUT "WANT ANOTHER WORD"SUS: IF W$="YES" THEN SO 

380 PRINT: PRINT “IT’S BEEN FUN! BYE FOR NOU.": GOTO 999 

390 PRINT “YOU FOUND THE WORD! ": GOT@ 370 

400 PRINT: PRINT: PRINT"SORRY, THAT LETTER ISN’T IN THE WORD." 

410 ON H GOTO 415,420,425, 430,435,440,445, 450,455,460 

A413 PRINT "FIRST, YE DRAW A HEAD": GOTO 470 

420 PRINT "NOW WE DRAW A BODY.": GOTO 470 

425 PRINT "NEXT WE DRAW AN ARK."s GOTO 470 

430 PRINT "THIS TIME IT’S THE OTHER ARN.": GOTO 470 

435 PRINT "NOW, LET’S DRAW THE RIGHT LEG.": GOTO 470 

440 PRINT “THIS TIME YE DRAW THE LEFT LEG.": GOTO 470 

445 PRINT “NOW WE PUT UP A HAND.": GOTO 470 

450 PRINT "NEXT THE OTHER HAND."s GOTO 470 

455 PRINT "NOW YE DRAW ONE FOOT": GOTO 470 

460 PRINT "HERE’S THE OTHER FOOT -- YOU’RE HUNGEI" 

470 ON M GOTO 480, 490,500,510,520,530,540,550,560,570 
480 PS(3,4)e%~"s PS(3,7)E%~"s PS(T,B) as PS(4,5)2"("s P$(4,6)="," 

Ss 491 PSCA, BE". OSPSCA, PIE") SP$(5,6)5"~"SPS(5, 705" 1P$ (5,8 2" =" 2 G0 T0580 
490 FOR I=6 TO 9: PS(I,7)="X"2, NEXT It GOTO 580, 

a 

ae 


. 
ce. 500 FOR I1=4 TO 7: PS$(I,I~f)="\": NEXT I: GOTO 580 
la r 
.Y 


510 PSCA,T1)S"/"s PS(5,10)="/"2 PS(6,9)5"/%2 PH(7,B)2"/"s GOTO 580 
520 PS(10,6)2"/"s PS(1T,5)=8"/": GOTO 580 

530 PS(1O,8)="\"s SCTE, P="\"2 GOTO 580 

540 PS(3,ft)="\"2 GOTO 580 

550 P$(3,3)="/": GOTO 580 . 

560 PS(12,10)2"\"2 P9(12,11)2"=": GOTO 580 

570 P9812, 35" "2 PE(12, 49207" 

580 FOR I=1 TO 12: FOR J=1 10 12: PRINT P9(I,J)3 NEXT J 

590 PRINT: NEXT I: PRINT: PRINT: IF M<>10 THEN 170 

600 PRINT "SORRY, YOU LOSE. THE WORD WAS “sas 

610 PRINT “YOU MISSED THAT ONE. DO YOU "$: GOTO 370 

620 INPUT "TYPE YES OR NO";Y$: IF Y$="YES" THEN 50 

700 DATA "GUM", "SIN", “FOR”, "CRY", "LUG", "BYE", "FLY" 

710 DATA "UGLY", °EACH", FROK”,“UORK", "TALK", "WITH", "SELF 

720 DATA "PIZZA", "THING", "FEIGN", “FIEND”, "ELBOW", "FAULT", "DIRTY" 
730 DATA "BUDGET","SPIRIT", "QUAINT", "MAIDEN", "ESCORT", "PICKAX" 

740 DATA “EXAMPLE”, “TENSION”, "QUININE", “KIDNEY”, "REPLICA", "SLEEPER" 
750 DATA “TRIANGLE”, "KANGAROO", "MAHOGANY®, "SERGEANT", “SEQUENCE” 
740 DATA "MOUSTACHE", "DANGEROUS", "SCIENTIST", "DIFFERENT", "QUIESCENT" 
770 BATA "MAGISTRATE", "ERRONEOUSLY”, "LOUDSPEAKER", "PHYTOTOXIC" 

780 DATA "MATRIMONIAL", "PARASYKPATHOMIMETIC", “THIGHOTROPISH" 

990 PRINT "BYE NOW" 

999 END 
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HANGNAN 


CREATIVE COMPUTING NORRISTOWN, NEW JERSEY 


HERE ARE THE LETTERS YOU USED: 


WHAT IS YOUR GUESS? E 


SORRY, THAT LETTER ISN°T IW THE WORD. 
FIRST, WE DRAW A HEAD 


XXXXXXX 
x x 
xX —_— 
X 2 2) 
xX we 
x 

x 

x 

x 

x 

Xx 

x 


HERE ARE THE LETTERS YOU USED: 
E 


WHAT IS YOUR GUESS? 0 


SORRY, THAT LETTER ISN°T IN THE WORD. 
NOW WE DRAW A BODY. 


AXXXAXX 
x x 
xX om 
X (0) 
xX ew we 
X Xx 
x Xx 
Xx Xx 
x x 
x 

x 

x 


HERE ARE THE LETTERS YOU USED: 
E,0 


WHAT IS YOUR GUESS? A 


SORRY, THAT LETTER ISN’T IN THE WORD. 
NEXT WE DRAW AN ARH. 


AXXXXXX 
x Xx 
xX — 
XV CG. o) 
X Nowe 
xX \X 
x \X 
x x 
x Xx 
x 

x 

x 


HERE ARE THE LETTERS YOU USED: 
E,0,A 


WHAT IS YOUR GUESS? I 


SORRY, THAT LETTER ISN°T IN THE WORD. 
THIS TIME IT’S THE OTHER ARM. 
AXXXXXX 


x x 

x ——m 
XV G24 
X Nevers 
X NXS 
x \X/ 

x x 

x x 

x 

x 

Xx 


HERE ARE THE LETTERS YOU USED: 
E,0,A,1 


WHAT IS YOUR GUESS? U 
~~ 


WHAT 1S YOUR GUESS FOR THE WORD? R 
WRONG. TRY ANOTHER LETTER. 


HERE ARE THE LETTERS YOU USED: 
E£,0,A,1,U 


~Y~ 
WHAT IS YOUR GUESS? N 
SORRY, THAT LETTER ISN°T IN THE WORD. 


WOU, LET’S DRAW THE RIGHT LEG. 
XXXXKXX 


x Xx 

xX mw 
XV G7 
X Nor s/ 
X NX 
x \X/ 

x x 

x x 

x / 

x f¢ 

x 


HERE ARE THE LETTERS YOU USED: 
E,0,0,1,U,N 


~-U- 
WHAT IS YOUR GUESS? S 
SORRY, THAT LETTER ISN’T IN THE WORD. 


THIS TIME WE DRAW THE LEFT LEG. 
XXXXXXX 


x Xx 

xX aa 
XNG ds 
X Nore s/ 
X NXS 
x \X/ 

x Xx 

x x 

x N\ 

Xx f N 
x 


HERE ARE THE LETTERS YOU USED: 
E,0,A,1,U,N,S 


“Ue 


WHAT IS YOUR GUESS? R 
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SORRY, THAT LETTER ISNT IN THE WORD. 
NOU UE PUT UP A HAND. 


XXXXXXX 

x Xx 

x wor N 
XAG 7 
X Nevers 

X NK? 

x \X/ 

x x 

x Xx 

x “N 

X f N 

x 


HERE ARE THE LETTERS YOU USED: 
E,0,A,1,U,N,9,R 


~Y- 
WHAT IS YOUR GUESS? H 
~UH 


UHAT IS YOUR GUESS FOR THE YORD? BUM 
WRONG. TRY ANOTHER LETTER. 


HERE ARE THE LETTERS YOU USED: 
E,0,A,1,U,N,9,RyM 


~Utt 


UHAT IS YOUR GUESS? GUM 


SORRY, THAT LETTER ISN’T IN THE WORD. 
NEXT THE OTHER HAND. 
AUXXKN 
x x 
Xf =m N 
NG. 7 
Noes 
\X/ 
\X/ 
x 
Xx 
iN 
‘oN 


es 


HERE ARE THE LETTERS YOU USED: 
E£,0,A,1,U,8,9,R,4,GUM 


~UH 

WHAT IS YOUR GUESS? G 
YOU FOUND THE woRD! 
UANT ANOTHER WORD? NO 


IT’S BEEN FUN! BYE FOR NOU. 


This is a sample of one of a great 
number of conversational programs. In 
a sense, itis like a CAl program except 
that its responses are just good fun. 
Whenever a computer is exhibited at a 
convention or conference with people 
that have not used a computer before, 
the conversational programs seem to 
get the first activity. 

In this particular program, the com- 
puter dispenses advice on various 
probiems such as sex, health, money, 
or job. 

David Ahi is the author of HELLO. 


HELLO 
CREATIVE COMPUTING NORRISTOWN, NEW JERSEY 


HELLO. MY NAHE IS CREATIVE COMPUTER. 


WHAT’S YOUR NAME? MEAN MR. MUSTARD 
HI THERE, MEAN HR. NUSTARD, ARE YOU ENJOYING YOURSELF HERE? NO 


OH, I’M SORRY TO HEAR THAT, MEAN MR. MUSTARD, MAYBE WE CAN 
BRIGHTEN UP YOUR VISIT A BIT. 


SAY, KEAN HR. MUSTARD, I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT 
THOSE DEALING WITH GREECE. WHAT KIND OF PROBLEMS 00 

YOU HAVE (ANSWER SEX, HEALTH, HONEY, OR JOB)? MONEY 

SORRY, MEAN HR. MUSTARD, 17M BROKE TOO. WHY DON’T YOU SELL 
EWCYCLOPAEDIAS OR MARRY SONEQNE RICH OR STOP EATING 

SO YOU WON’T NEED SO NUCH HONEY? 


ANY MORE PROBLEMS YOU WANT SOLVED, HEAN MR. MUSTARD? YES 


WHAT KIND (SEX, MOWEY, HEALTH, JOB)? SEX 
1S YOUR PROBLEM TOO MUCH OR TOO LITTLE? TOO MUCH 


YOU CALL THAT A PROBLEM?!! I SHOULD HAVE SUCH PROBLEHS! 
IF IT BOTHERS YOU, MEAN HR. MUSTARD, TAKE A COLD SHOWER. 


ANY HORE PROBLEMS YOU WANT SOLVED, MEAN HR. MUSTARD? YES 


WHAT KIND (SEX, MONEY, HEALTH, JOB)? JOB 

I CAN SYMPATHIZE WITH YOU MEAN MR. MUSTARD. I HAVE TO WORK 

VERY LONG HOURS FOR NG PAY -~ AND SOME OF MY BOSSES 

REALLY BEAT ON MY KEYBOARD. HY ADVICE TO YOU, MEAN HR. MUSTARD, 
IS TO OPEN A RETAIL COMPUTER STORE. IT’S GREAT FUN. 


AHY HORE PROBLEMS YOU WANT SOLVED, HEAN MR. MUSTARD? YES 


WHAT KIND (SEX, MONEY, HEALTH, JOB)? HEALTH 

HY ADVICE TO YOU MEAN MR. MUSTARD IS: 
1. TAKE TWO ASPIRIN 
2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!) 
3. GO TG BED (ALONE) 


ANY HORE PROBLEMS YOU WANT SOLVED, MEAN HR. MUSTARD? NOT REALLY 
JUST A SIMPLE “YES” OR ‘NO’ PLEASE, MEAN MR. MUSTARD. 
ANY KORE PROBLEMS YOU YANT SOLVED, MEAN MR. MUSTARD? NO 


THAT WILL BE $5.00 FOR THE ADVICE, MEAN HR. MUSTARD. 
PLEASE LEAVE THE MONEY ON THE TERMINAL. 


DID YOU LEAVE THE MONEY? NO 


THAT’S HONEST, MEAN MR. MUSTARD, BUT HOW DO YOU EXPECT 
ME TO GO ON WITH HY PSYCHOLOGY STUDIES IF MY PATIENTS 
DON’T PAY THEIR BILLS? 


2P 
4p 
4p 
10 

20 

30 

40 

50 

55 

60 

63 

76 

73 

80 

85 

100 
105 
110 
120 
125 
130 
12 
134 
136 
138 
140 
145 
148 
150 
153 
155 
140 
162 
164 
170 
180 
185 
188 
1970 
195 
200 
210 
212 
245 
217 
220 
225 
228 
230 
235 
240 
250 
255 
260 
270 
273 
275 
277 
280 
282 
300 
302 
305 
307 
310 
a5 
320 
325 
330 
335 
340 
350 
355 
360 
345 
370 
375 
380 
385 
370 
400 
999 
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RINT TAB(SS) > "HELLO" 

RINT TABCIS); "CREATIVE COMPUTING MURRISTOUN, NEW JERSEY" 
RINT: PRINT: PRINT 

PRINT “HELLO. MY NAME IS CREATIVE COMPUTER." 

PRINT: PRINT: INPUT “NHAT’S YOUR NANE“SNS: PRINT 

PRINT " HE THERE, "NS", ARE YOU ENJOYING YOURSELF HERE": 
INPUT BS: PRINT 

TF B$="YES" THEN 70 

TF BS="NO" THEN 80 

PRINT" "SN$;", E DON’T UNDERSTAND YOUR ANSWER IS “"sBge""," 
PRINT "PLEASE ANSWER “YES“ OR “NO’. DO YOU LIKE IT HERE"$: 6070 40 
PRINT "IH GLAD TO HEAR THAT, "SNS?".": PRINT 
GOTO 100 

PRINT "OH, I°M SORRY TO HEAR THAT, “3NS$;", MAYBE WE CAN" 
PRINT "BRIGHTEN UP YOUR VISIT A BIT." 

PRINT 

PRINT “SAY, "SNS3", I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT" 
PRINT "THOSE DEALING WITH GREECE. WHAT KIND OF PROBLENS DO” 
PRINT “YOU HAVE (ANSWER SEX, HEALTH, HONEY, OR JOB)"; 

INPUT C$ 

IF C$="SEX" THEN 200 

IF CS="HEALTH" THEN 180 

IF C$="MONEY" THEN 140 

IF C$="JOB" THEN 145 

PRINT "OH, "“SNS;", YOUR ANSWER OF “3C$3" IS GREEK TO NE." 
GOTO 250 

PRINT “I CAN SYHPATHIZE WITH YOU "3NS$3". 1 HAVE TO WORK" 
PRINT “VERY LONG HOURS FOR NO PAY ~~ AND SOHKE OF MY BOSSES" 
PRINT "REALLY BEAT ON MY KEYBOARD. HY ADVICE TO YOU, “sN$3"," 
PRINT "IS TO OPEN A RETAIL COMPUTER STORE, IT’S GREAT FUN." 
GOTO 250 

PRINT "SORRY, "“FNS;", I°K BROKE TOO. WHY DON’T YOU SELL" 
PRINT “ENCYCLOPEDIAS OR HARRY SOMEQNE RICH OR STOP EATING" 
PRINT "SO YOU WON’T NEED SO MUCH HONEY?" 


GOTO 250 

PRINT “MY ADVICE TO YOU "FNS," IS: 

PRINT " 1. TAKE TWO ASPLRIN" 

PRINT ° 2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!)" 
PRINT " 3. GO TO BED (ALONE)" 

GOTG 250 


INPUT "IS YOUR PROBLEM TOO MUCH OR TOO LITTLE"; D$: PRINT 

TF D$="TOQ MUCH" THEN 220 

IF Ds="TOO LITTLE" THEN 230 

PRINT "DON’T GET ALL SHOOK, "3N$;", JUST ANSWER THE QUESTION" 
INPUT "WITH “TOO MUCH’ OR “TOO LITTLE’. WHICH IS I1T";D$:G0TO 210 
PRINT "YOU CALL THAT A PROBLEN?!! I SHOULD HAVE SUCH PROBLEMS!" 
PRINT "IF IT BOTHERS YOU, ";N$;", TAKE A COLD SHOWER.” 

GOTO 250 

PRINT "WHY ARE YOU HERE, "SN$;"?% YOU SHOULD BE" 

PRINT “IN TOKYO OR NEW YORK OR ANSTERDAN OR SOMEPLACE WITH SOME” 
PRINT “REAL ACTION.” 

PRINT 

PRINT "ANY HORE PROBLEMS YOU WANT SOLVED, "sN$; 

INPUT E$: PRINT 

IF ES="YES" THEN 280 

IF ES="NO" THEN 300 

PRINT "JUST A SIMPLE “YES” OR ‘NO’ PLEASE, "3NS;"." 

GOTO 255 

PRINT "WHAT KIND (SEX, MONEY, HEALTH, JOB)"; 

GOTO 125 

PRINT 

PRINT “THAT WILL BE $5.00 FOR THE ADVICE, ";NS;".” 

PRINT "PLEASE LEAVE THE MONEY ON THE TERMINAL." 

FOR T= TO 2000: NEXT I 

PRINT: PRINT: PRINT 

PRINT "DID YOU LEAVE THE MONEY"; 

INPUT G$3 PRINT 

IF G$="YES" THEN 350 

IF G$="NO" THEN 370 

PRINT "YOUR ANSWER OF °"3G$;"" CONFUSES ME, ";NS;"." 

PRINT "PLEASE RESPOND WITH “YES* OR “NO’.": GOTO 315 

PRINT "HEY, "SNS;"?77? YOU LEFT NO MONEY AT ALL!" 

PRINT "YOU ARE CHEATING HE OUT OF HY HARD-EARNED LIVING." 
PRINT “RIP OFF, “SNSp"SRRERe REE REE ERE RE ERE EERE EEE! 
GOTO 390 

PRINT “THAT’S HONEST, ";N$;", BUT HOW DO YOU EXPECT" 

PRINT "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS" 
PRINT "DON’T PAY THEIR BILLS?" 

PRINT: PRINT: PRINT "NOW LET ME TALK TO SOMEONE ELSE.” 

PRINT "NICE MEETING YOU, ";NS;", HAVE A NICE DAY." 

GOTO 6 

END 


Hexapawn 


se aaNet NN TC INNA RO NS tAARUA aE 


The game of Hexapawn and a THE NUMBERING OF THE BOARD IS AS FOLLOUS: 
method to learn a strategy for playing 123 


the game was described in Martin 


Gardner's “Mathematical Games” 789 

column in the March 1962 issue of FOR EXAMPLE, TO NOVE YOUR RIGHTHOST PAWN FORWARD, 

Scientific American. The method YOU WOULD TYPE 9,6 IN RESPONSE TO THE QUESTION 

described in the article was for a “tour Hove 1’, SINCE I’M A GOOD SPORT, YOULL ALWAYS 

hypothetical learning machine com- , 

posed of match boxes and colored 

beads. This has been generalized inthe XXX XXX 

program HEX. p00 o00 

er 00 

The program learns by elimination of 

bad moves. All positions encountered YOUR MOVET €,5 YOUR MOVE? 8,5 

by the program and acceptable moves 

from them are stored in the array P$ (1). x sie 

When the program encounters an 0.0 0.0 

unfamiliar position, the position and all 

legal moves from it are added to the list. T MOVE FROH 1 TG 4 T MOVE FROK 3 TO 4 

if the program loses a game, it erases XX XX 

the move that led to defeat. If it hits a x0. .0X 

position from which all moves have 0.0 0.0 

been deleted (they all led to defeat), it 

erases the move that got it there a YOUR WOVET 3,3 YOUR HOVE? 5,1 

resigns. Eventually, the program learns 2X ox. 

to play extremely well and, indeed, is Xe oo 

unbeatable. The learning strategy 9.0 0.0 

could be adopted to other simple YOU WIN. You urn. 

games with a finite number of moves I HAVE WON O AND YOU 1 OUT OF 1 GANES. I HAVE WON 1 AND YOU 2 OUT OF 3 GAKES. 

(tic-tac-toe, small board checkers, or 

other chess-based games). XXX XK 


The original version of this program _ - 
was written by R.A. Kaapke. It was 000 ooo 
subsequently modified by Jeff Dalton 


and finally by Steve North of Creative YOUR MOVE 6,5 YOUR HOVET 9,6 
Computing. XXX XXX 

0, a) 

0.0 00. 

I NOVE FRON 1 TO 5 I HOVE FROM 210 6 
HEXAPANH 

CREATIVE COMPUTING MORRISTOWN, NEU JERSEY XX XX 

x wad 
INSTRUCTIONS (Y-N)? YES 0.0 oo. 
THIS PROGRAM PLAYS THE GAME OF HEXAPAUN. YOUR MOVET 7,5 YOUR HOVE? 8,5 
HEXAPAWN IS PLAYED WITH CHESS PAWNS Ott A 3 BY 3 BOARD. - 
THE PAUNS ARE MOVED AS IN CHESS ~ ONE SPACE FORWARD TO WX Hex 
AN EHPTY SPACE OR ONE SPACE FORUARD AND DIAGONALLY TO “fo. 0x 
CAPTURE AN OPPOSING NAN. ON THE BOARD, YOUR PAWNS oe O.. 
ARE “0”, THE COMPUTER'S PAUNS ARE “X’, AND EMPTY 
SQUARES ARE ’.’. TO ENTER A MOVE, TYPE THE NUMBER OF T HOVE FROM 3 TO 6 THOVE FROM 6 TO 9 
THE SQUARE YOU ARE HOVING FROM, FOLLOVED BY THE NUNBER 
OF THE SQUARE YOU WILL HOVE TO. THE HUNBERS MUST BE xX Mex 
SEPARATED BY A COMMA, + OX +0. 

0 0.x 
THE COMPUTER STARTS A SERIES OF GAMES KNOWING ONLY WHEN 
THE GAME IS WON (A DRAV IS THPOSSIBLE) AND HOW TO HOVE. YOU CAN’T MOVE, SO I WIN, TWIN, 
IT HAS NO STRATEGY AT FIRST AND JUST HOVES RANDOMLY. T HAVE WOK f AND YOU OUT OF 2 GanES. T HAVE WON 2 AND YOU 2 QUT OF 4 GAMES. 
HOWEVER, IT LEARNS FROM EACH GAME. THUS, WINNING BECOMES XXX 
NORE AND NORE DIFFICULT. ALSO, TO HELP OFFSET YOUR 
INITIAL ADVANTAGE, YOU WILL NOT BE TOLD HOW TO WIN THE 000 
GAME BUT HUST LEARN THIS BY PLAYING. YOUR HOVE? 
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600 


1 PRINT TAB(32);“HEXAPAUN* 401 
2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 410 
J PRINTPRINT:PRINT 620 
4 REN HEXAPAWN: INTERPRETATION OF HEXAPAUN GAKE AS PRESENTED IN 622 
S REN MARTIN GARDNER’S “THE UNEXPECTED HANGING AND OTHER HATHEMATIC- 423 
6 REN AL DIVERSIONS”, CHAPTER EIGHT: A HATCHBOX GANE~LEARNING MACHINE 424 
7 REN ORIGINAL VERSION FOR H-P TINESHARE SYSTEM BY R.A. KAAPKE 5/5/76 439 
8 REM INSTRUCTIONS BY JEFF DALTON ‘it 
9 REN CONVERSION TO WITS BASIC BY STEVE NORTH 632 
10 DIM BET, 9) N(17,4),9¢9) PHS) 43 
15 U=0: L=0 640 
20 DEF FUR(K)=-3e(Xe4 )~ (X55) 49 1X26 )-6¥ (Kd -78 (XE) PH OKEZ DEEN) gay 
25 DEF FNS(X)#-Xe(X=2 OR X25 OR X=@) 450 
30 DEF FRHCYP=Y-INT(Y/10) 610 480 
35 Pes"x.0" 470 
40 FOR Te1 TO 19s FOR J=1 TO 9: READ Bi, J): NEXT Js NEXT I 480 
45 FOR =f TO 192 FOR Jef TO 43 READ M(I,J): NEXT Jz WEXT J 470 
50 PRINT "INSTRUCTIONS (Y-N)"} 700 
60 ENPUT AS 710 
70 ASHLEFTO(AS, 1) 720 
80 IF At="Y" THEN 2000 730 
90 IF ASC>"N" THEN 50 740 
100 X=0: Y=0 250 
111 S(4)a0: $(5)=0s 914220 760 
412 SCD e-ds S(2de-ts S(3)=-1 770 
113 S(7)at2 SCB)ats S¢7)et 280 
115 GOSUB 1000 790 
120 PRINT “YOUR HOVE"; 800 
121 INPUT 41,K2 ato 
122 IF Ht=INT(N1 ANDH2=INT(H2)ANDNI2CAHDMI<10ANDH2>0ANDN2<tOTHENI30 = go 
123 PRINT “ILLEGAL CO-ORDINATES." 830 
124 BOTG 120 B40 
130 IF S(Nf)=1 THEN 150 850 
140 PRINT “ILLEGAL HOVE." GOTO 120 ast 
150 IF S(M2)=1 THER 140 B40 
160 IF H2-H10>-3 AND S(H2)0>-1 THEN 140 870 
170 IF W2>H1 THEN 140 880 
180 IF 2-H1=-3 AND (S(H2)<0) THEN 140 890 
185 IF W2-Wi<-4 THEN 140 900 


186 IF Wi=7 AND M2=3 THEN 140 

190 S(H1)20 

200 S(H2)51 

205 GOSUB 1000 

210 IF S(t)=1 OR S(2)*1 OR S(3)=1 THEN 820 
220 FOR #1 10 9 

221 IF S(1)s-1 THEN 230 

222 NEXT | 

223 GOTO 820 

230 FOR I#1 TO 9 

240 IF S(I)<>-1 THEN 330 

250 IF S(1+3)=0 THEN 350 

260 IF FNR(T)=2 THEN 320 

270 IF 1>4 THEN 300 

280 IF S(3)=1 THEN 350 

290 GOTO 330 

300 IF 5(8)=1 THEN 350 

310 GOTO 330 

320 IF S(1#2)=1 OR SC14+4)=1 THEN 350 
330 NEXT I 

340 GOTO 820 

350 FOR I*1 TO 19 

360 FOR Jet TO 3 

370 FOR Kx3 TO 1 STEP ~1 

SOO TOCSmP)ed4K2BC1, Ci) 8a+4-K) 
390 NEXT K 

400 NEXT J 

410 FOR Jel 10 9 

420 IF S($)<>B(I,J) THEN 440 

430 NEXT J 


440 R=0 


430 GOTO 540 

460 FOR J#1 10 9 

470 TF S(J)<>T(J) THEN 510 
480 NEXT J 


490 Ret 


500 GOTO 940 

S10 NEXT I 

Sti REMEMBER THE TERMINATION OF THIS LOOP IS IMPOSSIBLE 
Si2 PRINT “ILLEGAL BOARD PATTERN," 

530 STOP 


540 XI 


350 FOR T=1 TO 4 

560 IF M(X,1)<>0 THEN 600 
570 NEXT I 

580 PRINT "I RESIGN." 

570 GOTO 820 


905 

710 

915 

920 

925 

930 

935 

940 

945 

750 

955 

760 

965 

970 

1000 
1010 
1020 
1930 
1040 
1050 
1060 
1070 
1080 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
9999 
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Y=INT(RND(1 #441) 

IF H(X,Y)=0 THEN 600 

IF R<20 THEN 630 

PRINT "I MOVE FROM “;STRSCINT(M(X,Y)/10))3" TO “SSTRCFNMCHEX, Y))} 
SCINT(H(X,Y9/10) 220 

SCFNHCHOX,Y)) 2-4 

GOTO 640 

PRINT “I HOVE FROW "SSTRS(FHRCINT(H(X,Y)/10))02" TO "3 

PRINT STRS(FHR(FNHCH(X,Y)))) 

SCFNRCINT(H(X, ¥9/10)))20 

SCFNR(FNHCH(X,Y))) <1 

GOSUB 1000 

IF §(7)=-1 OR S(8)2-1 OR $(7)=-1 THEN 870 
FOR I=t 10 9 

If S(1)#1 TREN 490 

NEXT I 

@0TO 870 

FOR 121 10 9 

IF S{I}<>4 THEN 790 

IF S(1-3)0 THEN 120 

IF FHR(T)=I THEN 780 

IF 1X7 THEN 760 

IF §(5)=-1 THEN 120 

GoTo 790 

If 5(2)3-1 THEN 120 

60TO 790 

IF S(I-2)=-1 OR SCI-4)=-1 THEN 120 

NEXT I 

PRINT “YOU CAN’T HOVE, SO “; 

6010 870 

PRINT “YOU WW." 

NOX, YEO 

belt! 

PRINT "I HAVE WON"SUS"AND YOU"SLS“OUT OF "SL4U; "GAMES. “ 

PRINT 

GOTO 100 

PRINT "L WIN." 
veu+t 

GOTO 850 

DATA ~1,-1,-t,1,0 
DATA -1,0,~1,-1,1 
DATA -1,0,-1,1,1, 
DATA 0,-1,71,0,-1 
DATA “1,0,-1,-1,0 
DATA 0,-1,-1,0,1, 
DATA 0,0,-1,-1,-1 
DATA 0,-1,0,-1,t, 
DATA 0,0,-t,-t,ty 
DATA ~1,0,0,-1,1, 
DATA 24,25,36,0,1 
DATA 15,35,36,0,2 
DATA 26,35,0,0,47 
DATA 36,0,0,0,47, 
DATA 26,47,0,0,47, 
PRINT 

FOR 1=1 10 3 

FOR J=1 TO 3 
PRINT TAB(10)sHIDS(P$,5((1-1)434J)42, 103 

NEXT J 

PRINT 

NEXT I 

PRINT 

RETURN 

PRINT: PRINT “THIS PROGRAM PLAYS THE GANE OF HEXAPAUN." 

PRINT “HEXAPAWN IS PLAYED WITH CHESS PAWNS ON A 3 BY 3 BOARD." 
PRINT “THE PAWNS ARE HOVED AS IN CHESS - ONE SPACE FORWARD TO" 
PRINT "AN EMPTY SPACE OR ONE SPACE FORWARD AND DIAGONALLY TO" 
PRINT “CAPTURE AN OPPOSING MAN. ON THE BOARD, YOUR PAWNS" 

PRINT “ARE “O°, THE COHPUTER’S PAWNS ARE 7X’, AND EMPTY * 

PRINT “SQUARES ARE “.’. TO ENTER A HOVE, TYPE THE NUMBER OF" 
PRINT “THE SQUARE YOU ARE HOVING FROM, FOLLOWED BY THE NUMBER” 
PRINT “OF THE SQUARE YOU WILL HOVE TO. THE NUMBERS MUST BE" 
PRINT “SEPARATED BY A COHHA.“: PRINT 

PRINT “THE COHPUTER STARTS A SERIES OF GAMES KNOWING ONLY WHEN" 
PRINT “IT HAS NO STRATEGY AT FIRST AND JUST NOVES RANDOHLY.” 
PRINT "HOWEVER, IT LEARNS FROH EACH GAHE. THUS, IT BECOHES" 
PRINT “HORE AND MORE DIFFICULT. ALSO, TO HELP OFFSET YOUR" 
PRINT “INITIAL ADVANTAGE, YOU WILL NOT BE TOLD HOW TO WIN THE" 
PRINT “GANE BUT HUST LEARN THIS BY PLAYING." 

PRINT: PRINT "THE NUMBERING OF THE BOARD 1S AS FOLLOWS:" 

PRINT TABCIODS"123": PRINT TAB(10)3"456": PRINT TAB(10)3"789" 
PRINT: PRINT "FOR EXAMPLE, TO HOVE YOUR RIGHTMOST PAUN FORWARD," 
PRINT “YOU WOULD TYPE 9,6 IN RESPONSE TO THE QUESTION" 

PRINT ““YOUR HOVE 7”. SINCE I°H A GOOD SPORT, YOU’LL ALWAYS" 


5,36, 47 ,36,58,59, 0 
7,58,0 
,0,35,36,0,0 


~~ ee Ow 


7,0,28,58,0,0,15,47,0,0 


PRINT “GO FIRST."“: PRINT 
GOTO 100 
END 


i-Lo 


This game is an adaptation of the 
game GUESS; however, instead of just 
guessing a number between 1 and 100, 
in this game you win dollars when you 
guess the number. The directions, in 
the words of the author of the game, are 
as follows: 
1.There is an amount of money, 

between one and one hundred 

dollars, in the “HI-LO” jackpot. 

2. You will have six chances in which to 
guess the amount of money in the 
jackpot. 

3. After each guess, the computer will 
tell whether the guess was too high 
or too low. 

4. lf the correct amount of money is not 
guessed after six chances, the com- 
puter will print the amount in the 
jackpot. 

5. |f the correct amount of money is 
guessed within the six chance limit, 
the computer will register this 
amount. 

6. After each sequence of guesses, you 
have the choice of playing again or 
ending the program. If anew gameis 
played, a new amount of money will 
constitute the jackpot. 

7. If you win more than once, then your 
earnings are totalled. 

The author is Dean Altman of Fort 
Worth, Texas. 


10 PRINT TAB(34);"HI LO" 


20 PRINT TABCIS)s°CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


JO PRINTSPRINTsPRINT 
100 PRINT “THIS IS THE GAWE OF HE LO.°:PRINT 


110 PRINT “YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE" 


120 PRINT “HI LO JACKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS. 
130 PRINT “GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT!” 
140 PRINT “THEN YOU GET ANOTHER CHANCE TO WIN NORE HONEY. 
150 PRINT “IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS." :PRINT 


160 R=0 

170 B=OsPRINT 

180 YEINT(1O0#RNB(1)) 

200 PRINT “YOUR GUESS"; 

210 INPUT A 

220 B=B+ 

230 IF A=¥ THEN 300 

240 IF A>Y THEN 270 

250 PRINT “YOUR GUESS IS TOO LOW":G0TO 280 

270 PRINT “YOUR GUESS 1S TOO HIGH" 

280 PRINT:IF B<é THEN 200 

290 PRINT “YOU BLEW IT...700 BAD...THE NUMBER WAS"; Y 
295 R=0:60T0 350 

300 PRINT “GOT ITHUELHHELEL «© YOU WIN"; Y; "DOLLARS." 
S10 RERFY 

320 PRINT “YOUR TOTAL WINRENGS ARE HOU";R; "DOLLARS." 
350 PRINT:PRINT “PLAY AGAIN (YES OR NO)"; 

360 INPUT ASSIF AS="YES" THEN 170 


380 PRINT:PRINT “SQ LONG. HOPE YOU ENJOYED YOURSELF II!" 


390 END 


IF you" 
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, HI LO 
CREATIVE COMPUTING MORRISTOUN, NEW JERSEY 


THIS IS THE GAME OF HI LO. 


YOU WILL HAVE 6 TRIES TB GUESS THE AMGUNT OF HONEY IN THE 


HI LO JACKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS. 


GUESS THE ANOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT! 


THEN YOU GET ANOTHER CHANCE TO WIN HORE HONEY. 
TF YOU DO NOT GUESS THE AKDUNT, THE GAME ENDS. 


YOUR GUESS? 50 
YOUR GUESS IS TQ0 HIGH 


YOUR GUESS? 25 
YOUR GUESS IS TOO HIGH 


YOUR GUESS? 12 
YOUR GUESS 1S TOO HIGH 


YOUR GUESS? 4 
YOUR GUESS IS TOO HIGH 


YOUR GUESS? 3 
YOUR GUESS 18 TOO LOU 


YOUR GUESS? 4 

GOT ITHHITHTTEE! «© YOU WIN 4 DOLLARS. 
YOUR TOTAL WINNINGS ARE NOW 4 DOLLARS. 
PLAY AGAIN (YES OR NOD? YES 


YOUR GUESS? 50 
YOUR GUESS IS TOO LOW 


YOUR GUESS? 75 
YOUR GUESS IS TGQ HIGH 


YOUR GUESS? 62 
YOUR GUESS IS TOG HIGH 


YOUR GUESS? 57 

GOT ITELHEblete) | YOU WIN 57 DOLLARS. 
YOUR TOTAL WINNINGS ARE NOW 61 DOLLARS. 
PLAY AGAIN (YES OR NG)? NO 


SOQ LONG. HOPE YOU ENJOYED YOURSELF 11! 


HOUEVER, 


IF YOU 


This is a computerized version of an old 
European solitaire game of logic. The 
game starts with a pegboard shaped like a 
cross having pegs in every hole but the 
center. The object is to remove all 32 pegs, 
or as many as possible, by jumping into an 
empty hole, then removing the jumped NOVE WHICH PIECE? 59 
peg. TO WHERE? 41 

There are several different winning 
strategies for playing and, of course, each 
strategy can be played eight different ways 
on the board. Can you find a consistent 
winner? 

Charles Lund wrote this game while at 


The American School in The Hague, MOVE WHICH PIECE? 32 
Netherlands. TO WHERE? 50 


MOVE WHICH PIECE? 40 
TO WHERE? 42 


{ 
{ 
| 
0 
! 
{ 
! 


— we OO me om 
ee 
~oo 


HOVE UHICH PIECET 14 
TO WHERE? 32 


—~-SCo+—---— 


me nee oe 
a oan 
—-Oo37- O- Of 

~o og 


MOVE WHICH PIECE? 13 
TO WHERE? 31 


tit 
pad 
(1r1orrl 
Priors oo! 
ttte)_res oa! 
{at frairi1ot 
tt !1roogral 
Pett 
HOVE WHICH PIECE? 43 {at 
TO WHERE? 41 Pld 


MOVE WHICH PIECE? 32 
TO WHERE? 34 


i) 
4 
Oo!l! 
!oor 
prrd 
a1 
4 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 001 
HERE IS THE BOARD: tt ' 0 Q it 
frooras 
! ! ! rretege 
314015 MOVE UHICH PIECE? 34 lot 
TO WHERET 32 tt 
! I { 
22023024 ; MOVE WHICH PIECE? 35 
TO WHERE? 
! { ! 1 ' ! ! rrptoor HEREY 33 
2700 OU O82 OS rriioos oo} 
Peed rudd oo! 
| t { ! ' | t 1o! tittotoon 
38.037) 400 A 42444 pi P1aoro} 
Prrtae 
! ! ' { ! ' ' MOVE WHICH PIECE? 31 io} 
47 48 49° «500 (OSE 52 TO WHERE? 33 iid 
' ' I tid HOVE WHICH PIECE? 30 
58 59 «40 big TO WHERE? 32 
1!aqoto! 
! ! ! pliroa! ca! 
67 6869 PIU ELE oo! 
tai :oo!!toaa 
TO SAVE TYPING TINE, A COMPRESSED VERSION OF THE GAME BOARD tid i!oorot 
WILL BE USED DURING PLAY. REFER TO THE ABOVE ONE FOR PEG petbarqe 
NUMBERS. OK, LET°S BEGIN. MOVE WHICH PIECE? 41 !o} 
ray 


TO WHERET 43 
ILLEGAL MOVE, TRY AGAIN... 
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000 
1ao 
NOVE UHICH PIECE? 50 1oggtoadg 
TO WHERE? 40 po!ola} 
ILLEGAL HOVE, TRY AGAIN... 1aa!taa 
NOVE WHICH PIECE? 58 oa! 
TO WHERE? 40 rit 
aaa HOVE WHICH PIECE? 42 
100 TO WHERE? 24 
1oo00!00 
oaroto! o00 
platiy tat 
oa! 1qqaaoa 
pid oo0!oo0a! 
;oot100 
MOVE WHICH PIECE? 51 oot 
TO WHERE? 49 thi 
o00 NDVE WHICH PIECE? 60 
1a 10 WHERET 42 
faaagton 
oolotgl goo 
pltogrs 1a! 
oot . 1000000 
tt gotara! 
raaq!aqaa 
MOVE WHICH PIECE? 48 goa 
TO WHERET 50 re 
00 THE GAME 15 OVER, 
100 YOU HAD 11 PIECES REMAINING. 
:aootdoa 
ootolot PLAY AGAIN (YES OR NO)? NO 
rogrart 
oo! $0 LONG FOR NOW. 
ti 


MOVE UHICH PIECE? 53 
TO WHERE? 51 


PRINT TAB(33) 5 "H+ I-Q" 

PRINT TAB(1S);"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY” 
PRINT:PRINT:PRINT 

DIN B(70),T(9,9) 


PRINT “ ! | " 


PRINT * Wy t4 
PRINT “ I 


1 
2 
3 
4 
5S PRINT “HERE IS THE BOARD: ": PRINT 
6 
? 
8 
9 


15s PRINT 
! " 


PRINT “ 22 23°24": PRINT 
1OPRINT“! of oF ot o£ bow 
41 PRINT “29° 300 31 -32)«33 3435": PRINT 
12 PRINT“! of 0 6tUCUEUCUE 
13 PRINT “38 39) 400 4104204344": PRINT 
wapRINT™E of oF ot oboe 
15 PRINT “4746049505952 53" PRINT 
16 PRINT * to oto4 
17 PRINT * 5859 40": PRINT 
18 PRINT “ toto 
19 PRINT * 67 68 69"s PRINT 
20 PRINT “TO SAVE TYPING TIME, A COMPRESSED VERSION OF THE GAME BOARD" 
22 PRINT “WILL BE USED DURING PLAY. REFER TO THE ABOVE ONE FOR PEG" 
24 PRINT “MUHBERS. OK, LET‘S BEGIN.“ 
28 REK ##s SET UP BOARD 
29 FOR R=1 10 9 
30 FOR C=1 10? 
31 IF (Ra) @(R-5)9(R-6)£0 THEN 40 
32 IF (C-4)8(C-5)9(C-6)20 THEN 40 
35 T(R,C)s-5 
36 GOTO 50 
40 IF (R-1)8(0-1)9(R-9)4(C-9)=0 THEN 35 
42 TCR, CD85 
50 WEXT C 
60 NEXT R 
65 T(5,5)802 GOSUB 500 
70 REM e¢e INPUT HOVE AND CHECK ON LEGALITY 
75 FOR W=t TO 33 
77 READ H 
279 DATA 13,14,15,22,23,24,27,30,31,32,33,34,35,38,39,40,41 
1 DATA 42,43,44,47,40,49,50,51 52,53, 58,59 ,60,47, 68,69 
83 B(M)=-72 NEXT W 
96 B(A1)=-3 


100 INPUT “MOVE WHICH PIECE"; Z 


110 IF B(Z)=~7 THEN 140 
120 PRINT “ILLEGAL MOVE, TRY AGAIN...": GOTO 100 
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140 
150 
153 
156 
160 
170 
180 
190 
200 
210 
220 
500 
310 
920 
525 
530 
540 
350 
560 
570 
580 
570 
600 
610 
615 
620 
630 
640 
1000 
1005 
1020 
1030 
1040 
1045 
1050 
1060 
1070 
1080 
1085 
1090 
1120 
1130 
1135 
1140 
1160 
1170 
1173 
1180 
1200 
1210 
1220 
1225 
1230 
1240 
1500 
1505 
1510 
1520 
1530 
1535 
1340 
1545 
1550 
1560 
15ét 
1564 
1565 
1967 
15468 
1549 
1570 
1571 
1572 
1573 
1574 
1575 
1580 
1570 
1600 
1605 
16t0 
1611 
1612 
1603 
14tS 
1617 
1618 
1620 
1630 
2000 
2010 


INPUT “TO UHERE™;P 

IF B(P)=0 THEN 120 

IF B(P)=-7 THEN 120 

IF ZeP THEN 100 

IF ((Z#P)/2)INT((Z4P)/2) THEN 180 
goTO 120 

IF (ABS(Z-P)-2)¥(ABS(Z-P)-18)<>0 THEN 120 
GOSUB 1000 

GOSUB 500 

GOSUB 1500 

GATO 100 

REH ### PRINT BOARD 

FOR X=1 10 9 

FoR Y=1 10 9 

TF (X-1)9(X-9)9CY" 1) 0¥-9)20 THEN 550 
IF (X-4)#(X-5)6(K-6)"0 THEN 570 
IF (¥-4)8(¥-§)0(¥-6)=0 THEN 570 
REH 
GOTO 610 

IF T(X,YIX>5 THEN 600 
PRINT TAB(Y#2) 5" 1"; 
GOTO 610 
PRINT TAB(Y#2)3"0"3 

REM 

NEXT Y 
PRINT 
NEXT X 
RETURN 

REN #94 UPDATE BOARD 

xt: FOR X=1 10 9 

FOR Y=1 109 

IF COZ THEN 1220 

IF £42¢>P THEW 1080 

IF T(X,Y#1)€0 THEN 120 

T(X, Y#2)25 

TEX, V#)202 B(CHE)=H3 

GOTO 1200 

IF C+18Q>P THEN 1130 

IF TOX41,¥)20 THEN 120 
TEXe2,Va5s TOXG1,Y)202 BICHP)=-3 
goto 1200 

IF C-2¢>P THEN 1170 

IF T(X,¥-1)=0 THEN 120 

TEX, ¥-2=53 TUX, YO: B(C-1)=~-3 
GOTO 1200 

IF C-180>P THEW 1220 

IF T(X-1,¥)80 THEN 120 

T(X-2, 252 TEX-1,¥)903 B(C-9)=-3 
B(Z)=-3: B(P)#~7 

TOYO: GOTO 1240 

c=C4} 

WEXT Y 

NEXT X 

RETURN 

RENes* CHECK IF GAME IS OVER 
F20 

FOR R=2 10 8 

FOR C=2 10 8 

IF T(R,C)<>5 THEN 1580 

FeF+t 

FOR A=R-1 TO R+t 

T=0 

FOR BeC-1 TO C+1 

TST+T(A,B) 

NEXT B 

IF 1<>10 THEN 1567 

IF T{A,C)<0 THEN 1630 

NEXT A 

FOR X#C-1 TO C+t 

T=0 

FOR Y=R-1 TO R41 

TaTHTY,X) 

WEXT Y 

IF 1410 THEN 1575 

IF T(R,X)00 THEN 1630 

NEXT X 

NEXT € 

NEXT R 

REH #¥* GANE IS OVER 

PRINT “THE GANE IS OVER." 
PRINT "YOU HAD"SFS"PIECES RENAINING." 
IF F<>1 THEN 1615 

PRIRT “BRAVO! YOU HADE A PERFECT SCORE!“ 


PRINT "SAVE THIS PAPER AS A RECORD OF YOUR ACCOWPLISHHENT!" 


PRINT: INPUT “PLAY AGAIN (YES OR NO)";A$ 
IF Ad="HO" THEN 2000 

RESTORE: GOTO 28 

STOP 

RETURN 

PRINT: PRINT "SO LONG FOR NOW."s PRINT 


END 


Hockey 


This is a simulation of a ice hockey 
game. The computer, in this case, 
moderates and referees the play 
between two human opponents. Of 
course, one person could play both 


sides. BIG GUYS STARTING LINEUP 
The program asks for team names, 18h 

player names, and even the name of the DEC 

referee. Four types of shot are per- HONE YUERE 

mitted and a shot may be aimed at one DATA GENERAL 

of four areas. You are also asked about ANDAHL 

passing. The game is very comprehen- 

sive with lots of action, face offs, arts LITTLE GUYS STARTING LINEUP 

blocks, passes, 4 on 2 situations, and INSAI 

so on. Unfortunately there are no suTPC 

penalties. CRONENCO 

The original author is Robert thee 

Puopolo; modifications by Steve North 

of Creative Computing. WERE READY FOR TONIGHTS OPENING FACE-OFF 
FEDERAL GUT WILL DROP THE PUCK BETWEEN DEC AND IMSAI 
BIG GUYS HAS CONTROL OF THE PUCK 

HOCKEY PASS? 2 

CREATIVE COMPUTING MORRISTOWN, NEW JERSEY BURROUGHS GIVES TO A STREAKING HONEYWELL 
1BH COWES DOWN ON PTCO AND CRONEHCO 
SHOT? 1 
IBM LET’S A BIG SLAP SHOT GO!! 
AREA? 4 


WOULD YOU LIKE THE INSTRUCTIONS? YES WHAT A SPECTACULAR GLOVE SAVE BY TDL 


AND TDL GOLFS IT INTO THE CROUD 
AND WE*RE READY FOR THE FACE-OFF 


THIS 19 A SIMULATED HOCKEY GAME. LITTLE GUYS HAS CONTROL 


QUESTION RESPONSE 


Pass? 3 
PASS TYPE IN THE NUNBER OF PASSES YOU WOULD A’ 30N2° WITHA ’ TRAILER ’ 
LIKE TO KAKE, FROX 0 TO 3. MITS GIVES TO PTCO WHO SHUFFLES IT OFF TO 
SHOT TYPE THE NUMBER CORRESPONDING TO THE SHOT INSAI WHO FIRES A WING TO UING PASS To 
YOU WANT TO MAKE. ENTER: SUTPE AS HE CUTS IN ALONE! t 
1 FOR A SLAPSHOT SHOT? 2 
2 FOR A WRISTSHOT SUTPC RIPS A WRIST SHOT OFF 
3 FOR A BACKHAND AREA? 3 
4 FOR A SNAP SHOT GLOVE SAVE AMDAHL AND HE HANGS ON 
AREA TYPE IN THE NUMBER CORRESPONDING TO AND WE’RE READY FOR THE FACE-OFF 
THE AREA YOU ARE AIMING AT. ENTER: BIG GUYS HAS CONTROL OF THE PUCK 
1 FOR UPPER LEFT HAND CORNER PASS? 1 
2 FOR UPPER RIGHT HAND CORNER HONEYWELL LEADS DATA GENERAL WITH A PERFECT PASS 
3 FOR LOWER LEFT HAND CORNER DATA GENERAL CUTTING INIT 
4 FOR LOWER RIGHT HAND CORNER SHOT? 2 
DATA GENERAL RIPS A URIST SHOT OFF 
AT THE START OF THE GAME, YOU WILL BE ASKED FOR THE NANES AREA? 1 


QF YOUR PLAYERS. THEY ARE ENTERED IN THE ORDER: 

LEFT WING, CENTER, RIGHT YING, LEFT DEFENSE, 

RIGHT DEFENSE, GOALKEEPER. ANY OTHER INPUT REQUIRED WILL 
HAVE EXPLANATORY INSTRUCTIONS. 

ENTER THE TUO TEAHS? BIG GUYS, LITTLE GUYS 


WHISTLES ONE OVER THE HEAD OF TDL 

LITTLE GUYS HAS CONTROL 

PaSS? 2 

I’S A’ 3 ON 2 ¢ 

ONLY HONEYWELL AND DATA GENERAL ARE BACK 
HITS GIVES OFF TO CROKENCO 

CROMENCO DROPS TO PTCO 

SHOT? J 

WOULD THE BIG GUYS COACH ENTER HIS TEAN PICO GETS A BACKHAND OFF 

AREAT 1 

SKATE SAVE BY AMDAHL 

ANDAHL WHACKS THE LOOSE PUCK INTO THE STANDS 
AND WE’RE READY FOR THE FACE-OFF 


ENTER THE NUMBER OF MINUTES IN A GANE? 15 


PLAYER 1 Y IBH 
PLAYER 2 ? DEC 
PLAYER 3.7 BURROUGHS 


PLAYER 4 7 HONEYWELL LITTLE GUYS HAS CONTROL 
PLAYER 5 7 DATA GENERAL PASS?, 2 
PLAYER 6 ? ANDAHL Il’§ A“ 3 ON 2” 
ONLY HONEYWELL AND DATA GENERAL ARE BACK 
WOULD THE LITTLE GUYS COACH DO THE SAKE INSAL GIVES OFF TO PICO 
PTCO DROPS TO HITS 
PLAYER 1 7 HITS SHOT? 4 
PLAYER 2 ? IHSAI HITS SNAPS OFF A SNAP SHOT 
PLAYER 3 % SUTPC AREA? 1 
PLAYER 4 7 CRONENCO SCORE LITTLE GUYS 
PLAYER 5 7 PTCO 
PLAYER 6 7 TDL SCORE: LITTLE GUYS: 1 BIG GUYS: 0 
GOAL SCORED BY: HITS ASSISTED BY: PTCO AND IMSAI 
INPUT THE REFEREE FOR THIS GAHE? FEDERAL GVT AND WERE READY FOR THE FACE-OFF 
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2 PRINT TAB(33) 5; "HOCKEY® 
4 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
6 PRINTIPRINT:PRINT 


10 
30 
40 
50 


REM ROBERT PUOPOLO ALG. 1 140 HCCOWAN 6/7/73 HOCKEY 
LET X=1 

PRINTSPRINTs PRINT 

PRINT “WOULD YOU LIKE THE INSTRUCTIONS"; : INPUT C$ 
PRINT 

IF C$="NO" THEN 70 

IF C$=“YES" THEN 80 

PRINT “ANSWER YES GR NO11"sGOTO 50 

GaTO 1720 

DEM AS(7),BS¢7),H(20), 105), T0059), 7205) ,TH(5) 


100 PRINT "ENTER THE TWO TEAMS"; <INPUT A$(7),BS(7) 
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108 
110 
tS 
120 
130 
135 
140 
150 
195 
160 
170 
180 
190 
200 


PRINT 

PRINT “ENTER THE HUMBER OF MINUTES IN A GAME’;sINPUT Té 
PRINT 

IF T4<t THEN (iOsPRINT 

PRINT “WOULD THE " A$(7) “ COACH ENTER HIS TEAM” 

PRINT 

FOR T=1 TO GsPRENT “PLAYER"I3: INPUT ASCT)SNEXT ITsPRINT 
PRINT “WOULD THE " BS(7) “ COACH BO THE SAME” 

PRINT 

FOR T=1 TO 6sPRINT “PLAYER"T;s INPUT BS(T):NEXT TsPRINT 
PRINT “INPUT THE REFEREE FOR THIS GANE";:INPUT R$ 
PRINTSPRINT TABC10);A8(7) “ STARTING LINEUP" 

FOR T=1 TO 6sPRINT AS(T)SNEXT T 

PREINTSPRINT TABC10);B8(7)" STARTING LINEUP" 


210 FOR T=1 TO 4sPRINT BS(T)SNEXT TSPRINT 

220 PRINT "WERE READY FOR TONIGHTS OPENING FACE~OFF" 
230 PRINT R$ “ WILL DROP THE PUCK BETWEEN " A$(2) " AND " BS(2) 
240 FOR Let TO TésIF L=f THEN 260 

250 PRINT "AND UE‘RE READY FOR THE FACE-OFF" 

260 CoINT(2eRND(X))+120N € GOTO 270,280 

270 PRINT A$(7) “ HAS CONTROL OF THE PUCK":GOTO 2970 

280 PRINT B$(7) “ HAS CONTROL" ; 

290 PRINT "PASS"; sINPUT P:FOR N=1 TO SsH(ND=O:NEXT N 
300 IF P<O THEN 290 

305 IF P>3 THEN 290 

310 FOR J=i TO (P+2) 

320 HC JD=INT(S#RND CX) 41 

330 NEXT JTF HCJ-t)*H(J-2) THEN 310 

331 IF P+2<3 THEN 350 

O35 IF H(d-TPeH(J-3) THEN 310 

340 IF H(J-2)5H(J-3) THEN 310 

350 IF P=0 THEN 360 

355 GOTO 490 

360 INPUT "SHOT “;S:IF S<1 THEN 360 

365 IF S>4 THEN 360 

370 ON C GOTO 380,480 

380 PRINT ASCH(J-1) >; 2G5H(J-1) 2612026220 

390 ON S GOTO 400,420,440,460 

400 PRINT “ LET’S A BOOMER GO FROM THE RED LINE! !" 

410 Z=10:60TO 890 

420 PRINT ° FLIPS & WRISTSHOT DOWN THE ICE” 

440 PRINT “BACKHANDS ONE IN ON THE GOALTENDER" 

450 Z=25:G0TD 890 

460 PRINT " SNAPS A LONG FLIP SHOT" 

470 Z=17:G60T0 670 

480 PRINT BSCH(J-1))5561=056220:G=H(J-1):G0T0 390 

470 ON C GOTO 500,440 

300 ON P GOTO 510,540,570 

S10 PRINT AS(H(J-2)) " LEADS " ASC(H(J-1)) " UITH A PERFECT PASS" 
520 PRINT AS(H(J-1)) " CUTTING IN!TE" 

330 GHC I-12) sG12H($-2)262=0221=3:60T0 770 

540 PRINT ASC HCJ-2)) " GIVES TO A STREAKING " AS(H(J~1)) 
550 PRINT ASCH(J-3)) “ CONES DOUN ON “ BS(S) " AND " BS(4) 
340 G=H(J-3) 2642H(J-1) sG22H(J-2) 212236070 770 

570 PRINT “OH MY GODI1 A * 4 ON 2 “ SITUATION" 

580 PRINT AS(H(J-3)) “ LEADS “ AS(H(J-2)) 

570 PRINT AS(H(J-2)) “ IS WHEEELING THROUGH CENTER" 

600 PRINT ASC H(J-2)) " GIVES AND GOES WITH “ AS(H(J-1)) 
610 PRINT "PRETTY PASSING” 

620 PRINT ASCH(J-1)) ° DROPS IT TO “ AS(HOI-4)) 

$630 GH(J-4) sG4=S(U-1) 2G62=H(J-2)2Z121:G0T0 770 

640 ON P GOTO 650,670,720 


650 PRINT BS(H(J-1)) " HITS " BSCH(J-2)) " FLYING DOWN THE LEFTSIDE" 


660 G=H(J-2)561=H(J-1)262=0321=3:60T0 770 

670 PRINT “IT’S A’ 3 ON 2°" 

680 PRINT “ONLY “ A$(4) " AND " AS(5) " ARE BACK" 
690 PRINT BS(H(J~2)) “ GIVES OFF TO " BSCH(J-1)) 
700 PRINT BS(H(J-1)) “ DROPS TO “ BS(H(J-3)) 

FIO GHC I-39) 2815 (J-1) 2G22H(J-2)3Z1=2:G0T0 770 
720 PRINT " A“ 3 ON 2 % UITH A ~ TRAILER “” 


730 PRINT BS(H(J~4)) ° GIVES TO “ BS(H(J-2)) “ WHO SHUFFLES IT OFF TO" 


740 PRINT B9CH(J-1)) " WHO FIRES A WING TO YING PASS TO " 
750 PRINT BS(H(J-3)) © AS HE CUTS IN ALONE!(" 

760 GH(J-3) sG1=H(J-1)3G2=H(J-2)821=13G0TO 770 

770 PRINT “SHOT*;:INPUT S:IF S>4 THEN 770:IF S<1 THEN 770 
780 ON C GOTO 770,880 

790 PRINT A4$(6)520N S GOTO 800,820,840,860 

800 PRINT “ LET’S A BIG SLAP SHOT GO!!" 

810 Z=4:Z27+Z1:G0TO 890 

820 PRINT “ RIPS A URIST SHOT OFF" 

830 Z=23Z*Z+Z1:G0T0 890 

840 PRINT “ GETS A BACKHAND OFF" 

850 Z=3sZ=Z+Z1:G0TO 890 

860 PRINT “ SWAPS OFF A SNAP SHOT” 

870 Ze2sZ=Z+Zi:GOTO 890 

G80 PRINT BS(6);:0N S GOTO 800,820,840,860 

G90 PRINT "AREA" ;SINPUT AsIF AX? THEN 990 

895 IF A>4 THEN 890 

700 ON C GOTO 710,920 

910 $2=S2+1sG0TO 930 

920 S3=S3+1 

930 AI=INTCASRND(X)D+12IF ACAL THEN 1200 

940 HE ZOD=INT(100#RND(X) 41 

950 IF INTCH(20)/Z2)=H(20)/2 THEN 1160 

960 ON C GOTO 970,980 

970 PRINT “GOAL “ AS(7):H(9)=H(9)41260T0 990 

980 PRINT "SCORE “' B8(7):H(B)=H(8)+1 

990 FOR Blot TO 25:PREINT CHRS(7))SNEXT BY SPRINT 

1000 PRINT “SCORE: “;s1F HC@)>H(9) THEN 1020 

1010 PRINT ASC7)%s° FHC), B9(7)"s"5HC8) sGOTO 1030 

1020 PRINT B9(7)"2"SH(G) ,AS(7)"s"FHC9) 

1030 ON C GOTO 1040,1100 

1040 PRINT “GOAL SCORED BYs " AS(G);:IF GI=0 THEN 1070 
1050 IF G2=0 THEN 1080 

1060 PRINT “ ASSISTED BY: “ AS(G1) " AND “ A$(G2):GOTO 1070 


1070 
1080 
1090 
1100 
1140 
Tits 
1120 
1130 
1140 
1150 
1160 
1165 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 


1290 
1300 
1310 
1320 
1336 
1340 
1350 
1360 
1370 
1380 
1370 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1360 
1570 
1580 
1570 
1600 
1610 
1620 
1630 
1640 
1450 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1740 
1950 
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PRINT “ UNASSISTED":GOTO 1090 

PRINT " ASSISTED BY: * AS(G1) 

TOG)ST CG) STH (G1 =T1 (G1) 41 sT1(G2)=71(G2)+1sG0T0 1540 
PRINT "GOAL SCORED BY: “ BS(G); 

IF G120 THEN 1130 

IF G2=0 THEN 1140 

PRINT " ASSISTED BY: " BS(G1) “ AND " B$(G2):GOTO 1150 
PRINT " UNASSISTED":GOTO 1150 

PRINT " ASSISTED BY: “ B9(61):GOTO 1150 

T2(G)=12(G) 482 T3CGE)=T3(G1 +4 T3662 )=13(62)+1sG0TO 1540 
AQ=INT(1OO#RND(X))+421F INT(AZ/4)=02/4 THEN 1170 

GOTO 1200 

ON £ GOTO 1180,1190 

PRINT "SAVE “ B4(6) “ REBOUND":GOTO 940 

PRINT "SAVE “ AS(6) “ FOLLOW UP":60TO 940 
S1=INT(6#RND(X)) 41 

ON C GOTO 1220,1380 

ON S1 GOTO 1230,1260,1290, 1300, 1330, 1350 

PRINT "KICK SAVE AWD A BEAUTY BY “ Bg(4) 

PRINT "CLEARED OUT BY ” BS(3) 

GOTO 260 

PRINT "WHAT @ SPECTACULAR GLOVE SAVE BY " BS(6) 

PRINT “ARD “ B$(6) " GOLFS IT INTO THE CROWD" 

GOTO 1540 


PRINT "SKATE SAVE ON A LOW STEAMER BY " B9(4):G0TO 260 
PRINT "PAD SAVE BY " B$(6) " OFF THE STICK “ 

PRINT "OF “aS(G) " AND " B$(6) “ COVERS UP" 

GOTO 1540 

PRINT “WHISTLES ONE OVER THE HEAD OF “ BS(6) 

GOTO 260 

PRINT B$(6) " HAKES A FACE SAVE!! AND HE IS HURT" 


PRINT "THE DEFENSEMAN “ 89(¢5) " COVERS UP FOR HIM" 

GOTO 1540 

GH SI GOTO £390,1410, 1440, 1470, 1490, 1520 

PRINT “STICK SAVE BY " AS(6) 

PRINT "AND CLEARED QUT BY “ A$(4):G0TO 260 

PRINT "OH MY GOD!! “ B$(G) “ RATTLES GNE OFF THE POST" 
PRINT “TO THE RIGHT OF " AS(46) “ AND " AS(4) " COVERS "; 
PRINT "OQN THE LOOSE PUCK!":GOTO 1540 

PRINT "SKATE SAVE BY “ A9(6) 

PRINT A$(6) “ WHACKS THE LOOSE PUCK INTO THE STANDS" 

GOTO 1540 

PRINT “STICK SAVE BY " AS(4) " AND HE CLEARS IT QUT HIMSELF” 
G0TO 260 

PRINT “KICKED OUT BY " AS(6) 

PRINT “AND IT REBOUNDS ALL THE WAY TO CENTER ICE" 

GOTO 260 

PRINT "GLOVE SAVE “ A$(6) “ AND HE HANGS ON" 

GOTO 1540 

NEXT L:FOR N=t TO SO:PRINT CHRS(7)3SNEXT NePRINT "TAT’S THE SIREN" 
PRINTSPRINT TABCIS); “FINAL SCORE:" 

TF HCQ)HC9) THEN 1580 

PRINT AS(7)"3"FHO9), BS(7)"s"5H(8) GOTO 1590 

PRINT BSC7)"s" HCO) ,ASC7)"E" FHF) 

PRINTsPRINT TAB(10);"SCORING SUANARY’ PRINT 

PRINT TAB(25);A8(7) 

PRENT TAB(S) 3 "NAME"; TAB(20) ¢ "GOALS"; TAB( 35); "ASSISTS" 
PRINT TAB(S)5"--~~"3 TAB(20) 5 "----- "STAB(3S) 5 Smee “ 

FOR T=1 TO SPRINT TABCS)5AS(1) 3 TAB(20) 3 TCL) sTAB(S6) 3TH CI) 
NEXT TsPRINT 

PRINT TAB(25);B8(7) 

PRINT TAB(S) 5 "NAHE"; TAB(20) 7 "GOALS" 3 TAB(35) 5 "ASSISTS® 
PRINT TABCS)5"---~"3 TAB(20) 5 "-~-~-"5 TAB(35) $¢--~--~- . 

FOR T=1 TO SPRINT TAB(S);B9(T) 5S TAB(21) S727) STAB( 36) TIT) 
WEXT T:PRINT 

PRINT “SHOTS GN NET*sPRINT AS(7)"2";S2:PRINT BSC 7)" 2" 33 
END 

PRINT: PRINT “THIS IS A SIMULATED HOCKEY GAME." 


PRINT “QUESTION RESPONSE" 

PRINT “PASS TYPE IN THE NUMBER OF PASSES YOU WOULD" 
PRINT " LIKE TO WAKE, FROM 0 TO 3." 

PRINT "SHOT TYPE THE NUNBER CORRESPONDING TO THE SHOT" 
PRINT “ YOU WANT TO MAKE. ENTER:" 

PRINT “ 1 FOR A SLAPSHOT" 

PRINT ° 2 FOR A URISTSHOT" 

PRINT * a FOR A BACKHAND" 

PRINT " 4 FOR A SNAP SHOT" 

PRINT “AREA TYPE IN THE NUNBER CORRESPONDING TO” 

PRINT " THE AREA YOU ARE AIMING AT. ENTER:" 

PRINT ” 1 FOR UPPER LEFT HAND CORNER" 

PRINT ° 2 FOR UPPER RIGHT HAND CORNER" 

PRINT " 3 FOR LOWER LEFT HAND CORNER" 

PRINT " 4 FOR LOVER RIGHT HAND CORNER" 

PRINT 

PRINT “AT THE START OF THE GAHE, YOU WILL BE ASKED FOR THE NANES" 


PRINT “OF YOUR PLAYERS. THEY ARE ENTERED IN THE ORDER; " 

PRINT “LEFT WING, CENTER, RIGHT WING, LEFT DEFENSE,” 

PRINT "RIGHT DEFENSE, GOALKEEPER. ANY OTHER INPUT REQUIRED WILL" 
PRINT "HAVE EXPLANATORY INSTRUCTIONS.° 

GOTO 70 

END 


WELL YOUR Mo>T HER 
WEARS KNoBBY TIRE ..-." 


Horserace 


This program simulates a one-mile 
horse race for three-year old 
thoroughbreds. Up to ten people may 
place bets on the race up to $10,000 
each. However, you may only bet to 
win. You place your bet by inputting 
the number of the horse, acomma, and 
the amount of your bet. The computer 
then shows the position of the horses at 
seven points around the track and at 
the finish. Payoffs and winnings are 
shown at the end. 

The program was written by Laurie 
Chevalier while a student at South 
Portland High School. 


XXXXSTARTXXXX 
HORSERACE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
346 
WELCONE 70 SOUTH PORTLAND HIGH RACETRACK 
»eeQUNED BY LAURIE CHEVALIER 15 2 
DO YOU WANT DIRECTIONS? YES 
UP TO 10 HAY PLAY. A TABLE OF ODDS WILL BE PRINTED. YOU 
NAY BET ANY + AMOUNT UNDER 100000 ON ONE HORSE. 8 
DURING THE RACE, A HORSE WILL BE SHOUN BY 17S 
NUMBER. THE HORSES RACE DOWN THE PAPER! 
HOU MANY WANT TO BET? 1 
WHEN 7 APPEARS, TYPE NANE 
? JIM 
HORSE NUMBER opps 
JOE MAW 1 4.44444 31 
L.B.de 2 6.66667 31 
NR. WASHBURN 3 20 31 
MISS KAREN 4 40 41 
JOLLY 5 4a 
HORSE é 40 31 
JELLY DO NOT ? 40 31 
MIDNIGHT 8 4 
Tote reer mcm c can sem amram ae mae ae ma mana XXXXF INISHXXXX 
PLACE YOUR BETS...HORSE # THEN AHQUNT 
JIM? 2,5000 
123456728 
XXXXSTARTXXXX XXXXSTARTXXXX 
6 4 
8 7 2 3 
1 
5 é 
7 
35 4 
1 
2 
8 
XXXXF INTSHXXXX XXXXF INTSHXXXX 
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XXXXSTARTXXXX 


mw 


— AN O&O 


XXXXF INTSHXXXX 


XXXXSTARTXXXX 


PD ON te 


8 


XXXXF INTSHXXXX 


AXAXSTARTXXXX 
570 FOR W=1 108 
580 PRINT VS(ND,,N,R/D(ND SEI" 
590 NEXT N 
SDOPRINT "~---- =e nen nnn nee en en ee 
610 PRINT “PLACE YOUR BETS...HORSE 4 THEN AMOUNT" 
620 FOR J=1 TOC 
630 PRINT US(J)3 
640 INPUT O(J), PCa) 
650 IF P(J)<1 THEN 670 
660 IF P(J)<100000 THEN 690 
670 PRINT" YOU CAN’T DO THAT!" 
680 GOTO 630 
690 NEXT J 
700 PRINT 
710 PRINT"! 23.45 67 6" 
720 PRINT"XXXXSTARTXXXX"? 


4? 730 FOR I=1 TON 
3 740 LET Nel 
750 LET MCI)=4 
4 760 LET YCMCTD)= INT CHOOFRND(E) +1) 


770 IF YCH(1))<10 THENB60 
780 LET S=INT(R/D(1)+.5) 
790 IF Y(M(1))<St17 THEN 880 
2 800 IF Y(H(1))<S5#37 THEN 900 
B10 IF YCW(I))<84+57 THEN920 
820 IF YCH(1))<77+5 THEND40 
5 B30 IF YCM(T))<S+92 THEN? 60 
XXXXF INT SHXXXX 840 LET YCN(I))=7 
850 GOTO 979 
860 LET YCM(T)}=t 
re ee eee tt ee en a 870 GOTO 970 
880 LET Y(M(T))=2 


THE RACE RESULTS AREs 990 GOTO 970 
900 LET YCH(1))=3 
1 PLACE HORSE NO. 1 AT 4.44444 31 910 GOTO 970 
920 LET YCH(L))=4 
2 PLACE HORSE NO. 8 aT 431 930 GOTO 970 
940 LET YCH(1) 25 
3 PLACE HORSE NO. 5 AT 431 950 GOTO 970 
960 LET YCH(1))=6 
4 PLACE HORSE NO.- 2 AT 6.66667 #1 970 NEXTI 
980 LET M=I 
5 PLACE HORSE NO. 6 aT 40 st 990 FOR I=1708 
VOOOLET S(HCE) 25 (MCT) )4¥(H(T)) 
6 PLACE HORSE WO. 3 AT 20 31 1010 NEXTI 
1020 LET I=1 
7 PLACE HORSE NO. 7 AT 40 1 1030 FOR L=1 108 
1040 FORI=1T0 8-L 
§ PLACE HORSE HO. 4 at 40 41 4050 IF S(MCE))<SCH(T#1)) THEN 1090 
DO YOU WANT TO BET ON THE NEXT RACE? 4060 LET H=MCT) 
7 NO 1070 LET M(T)SN(I49) 
1080 LET M(I#1)=H 
100 PRINT TAB(31): "HORSERACE" 1090 NEXT I 
110 PRINT TAB(IS)S"CREATIVE COMPUTING HORRISTOUN, NEW JERSEY" 1100 NEXT L 
120 PRINT:PRINTSPRINT 4110 LET T=S¢M(B)) 
210 DIN S(@) Vi20FOR I=t TO8 
220 PRINT"WELCOHE TO SOUTH PORTLAND HIGH RACETRACK” 4130 LET BES(M(1))-S(M(I-1)) 
230PRINT" ++ OWNED BY LAURIE CHEVALIER* 1140 IF B=O THEN 1190 
240 PRINT “DO YOU WANT DIRECTIONS"; 1150 FOR A=1 10 B 
250 INPUT X$ 1160 PRINT 
260 IF X$="NO" THEN320 VIPOIF SCM(1))>27 THENT240 
270PRINT°UP TO 10 HAY PLAY. A TABLE OF ODDS WILL BE PRINTED, YOU" 1180 NEXT A 
280 PRINT"HAY BET ANY + AMOUNT UNDER 100000 ON ONE HORSE." 1990 PRINT M(I)3 
290 PRINT "DURING THE RACE, A HORSE WILL BE SHOWN BY ITS" 1200 NEXT I 
300 PRINT"NUMBER, THE HORSES RACE DOWN THE PAPER!" 1210 FOR A=1 10 28-T 
310 PRINT 1220 PRINT 
320 PRINT "HOW MANY WANT TO BET"; 1230 NEXT A 
330 INPUT C 1240 PRINT"XXXXFINESHXXXX" 
340 PRINT "WHEN ? APPEARS, TYPE HANE" 1242 PRINT 
350 FOR A=! 10 C 1243 PRINT 
360 INPUT USTAD 1244 PRINT "a--- 2-2 neem nnn ne nn eee ne een nr ” 
370 NEXT A 1245 PRINT 
380 PRINT 1250 IF 1<28 THEN 720 
390 PRINT"HORSE",, "NUMBER", “ODDS” 1270 PRINT "THE RACE RESULTS ARE:" 
400 PRINT 1272 LET Z9=1 
Al0 FOR I=f TO @: S(I)=O: NEXT I 1280 FOR 1=8 TO 1STEP-1 
420 LET R=0 1290 LET F=H(I) 
430 FOR A=1 T0 8 1300 PRINT 
440 LET D(AD=INT(TOSRND(1)41) 1310 PRINT Z9;"PLACE HORSE NO."SF,"AT “SR/D(F) 3°21" 
450 NEXT A 1312 LET 2922944 
460 FOR A=1T0 8 1320 HEXT I 
470 LET R=R+D(A) 1330 FOR J=1 TOC 
480 NEXT A 4340 IF Q(J)<>H(B) THEN 1370 
490 LET ¥$(1)="J0E HAW" V3SOLET N=O(J) 
500 LET V$(2)="L. Bid." 1355 PRINT 
510 LET ¥$(3)="NR. WASHBURN" 1360 PRINT US(J)3" WINS $"F(R/DOND)#P (I) 
520 LET V$(4)="HISS KAREN” 1370 NEXT J 
530 LET V$(5)="JOLLY" 1372 PRINT "DO YOU WANT TO BEY ON THE NEXT RACE?" 
540 LET V$(6)=*HORSE" 1374 INPUT "YES OR NO“;08 
550 LET V$¢7)="JELLY DO NOT" 1376 IF O$="YES" THEN 380 
560 LET ¥$(8)="NIDNIGHT” 1380 END 


93 


 fHurkie 


Hurkie? A Hurkle is a happy beast 
and lives in another galaxy ona planet 
named Lirht that has three moons. 
Hurkle are favorite pets of the Gwik, the 
dominant race of Lirht and ... well, to 
find out more, read “The Hurkle is a 
Happy Beast,” a story in the book A 
Way Home by Theodore Sturgeon. 

In this program a shy hurkle is hiding 
on a 10 by 10 grid. Homebase is point 
0,0 in the Southwest corner. Your 
guess as to the gridpoint where the 
hurkle is hiding should be a pair of 
whole numbers, separated by a com- 
ma. After each try, the computer will 
tell you the approximate direction to go 
look for the Hurkle. You get five 
guesses to find him; you may change 
this number in Line 110, although four 
guesses is actually enough. 

This program was written by Bob 
Albrecht of People’s Computer Com- 


pany. 


HURKLE 
CREATIVE COHPUTING MORRISTOWN, NEW JERSEY 


A HURKLE IS HIDING ON A 10 BY 10 GRID. HOWEBASE 

GN THE GRID IS POINT 0,0 AND ANY GRIDPOINT I8 A 
PAIR OF UHOLE NUMBERS SEPARATED BY A COWMA. TRY TO 
GUESS THE HURKLE’S GRIDPOINT. YOU GET 5 TRIES. 
AFTER EACH TRY, I WILL TELL YOU THE APPROXINATE 
DIRECTION TO 60 TO LOOK FOR THE HURKLE. 


GUESS #1 °7°5,5 
GO SOUTHEAST 


GUESS #2 7 6,4 
90 SOUTH 


GUESS #37? 6,3 
60 SOUTH 


GUESS #4 7 4,2 
YOU FOUND HIM IN 4 GUESSES! 
LET’S PLAY AGAIN. HURKLE IS HIDING. 


GUESS Bt 7 5,5 
GO HORTHWEST 


GUESS # 2? 3,8 
GO WORTHUEST 


GUESS #37 2,9 


YOU FOUND HIM IN 3 GUESSES! 


] 
° TT 
; Ty 
, a 
cE 
WEST § 
; =n 
; Ts 
; =n 
: TT 
; Ts 
0 
HOMEBASE 


10 PRINT TAB(33);“HURKLE® 
20 PRINT TABCIS); "CREATIVE COMPUTING HORRISTOUN, NEW JERSEY" 
30 PRINTSPRINTSPRINT 


110 
120 
210 
220 
230 
240 
250 
260 
270 
280 
285 
286 
30 
320 
330 
340 
350 
360 
370 
380 
4to 
420 
430 
440 
450 
460 
470 
500 
5t0 
520 
540 
éto 
620 
630 
640 
650 
460 
670 
680 
690 
700 
710 
720 
730 
999 
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NES 
G=10 

PRINT 

PRINT "A HURKLE 1S HIDING ON A";G;"BY";G3"GRID. HONEBASE™ 
PRINT "ON THE GRID IS POINT 0,0 AND ANY GRIDPOINT IS A” 
PRINT *PAIR OF WHOLE NUMBERS SEPARATED BY A COKNA. TRY 10" 
PRINT “GUESS THE HURKLE’S GRIDPOINT. YOU GET";N;“TRIES.* 
PRINT “AFTER EACH TRY, I WILL TELL YOU THE APPROXIMATE" 
PRINT “DIRECTION TO 60 TO LOOK FOR THE HURKLE." 

PRINT 

AZINT(GSRED(1)) 

B=INT(BSRND(1)) 

FOR Ket TON 

PRINT “GUESS @"5K; 

INPUT X,Y 

IF ABS(X-A)+ABS(Y-B)=0 THEN 500 

REW PRINT INFO 

BOSUB 610 

PRINT 

NEXT K 

PRINT 

PRINT "GORRY, THATS" SN; "GUESSES." 

PRINT "THE HURKLE 18 AT “sAr", "5B 

PRINT 

PRINT “LETS PLAY AGAIN. HURKLE IS HIDINB.” 

PRINT 

GOTO 285 

REN 

PRINT 

PRINT “YOU FOUND HIM IN"sK} "GUESSES!" 

GOTO 440 

PRINT "60 *; 

IF Y=B THEN 670 

IF ¥<B THEN 460 

PRINT "SOUTH"; 

60 16 670 

PRINT "NORTH"; 

IF X=A THEN 720 

IF X<A THEN 710 

PRINT "WEST"; 

80 TD 720 

PRINT "EAST"; 

PRINT 


RETURN 
END 


This program tests your fundamental 
knowledge of kinematics. It presents a 
simple problem: a ball is thrown 
straight up in the air at some random 
velocity. You then must answer three 
questions about the flight of the ball: 

1. How high will it go? 

2. How long until it returns to earth? 

3. What will be its velocity after a 

random number of seconds? 

The computer evaluates your perfor- 
mance; within 15% of the correct 
answer is considered close enough. 
After each run, the computer gives you 
another problem until you interrupt it. 

KINEMA was shortened from the 
original Huntington Computer Project 
Program, KINERV, by Richard Pav of 
Patchogue High School, Patchogue, 
New York. 


KINEHKA 
CREATIVE COMPUTING NORRISTOWN, NEW JERSEY 


10 PRINT TAB(33);"KINEHA” 


A BALL IS THROWN UPWARDS AT 35 METERS PER SECOND. 20 PRINT TAB(TS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT: PRINT: PRINT 
HOW HIGH WILL IT GO CIN METERS)? 10 100 PRINT 
NOT EVEN CLOSE.... 105 PRINT 
CORRECT ANSWER IS 61.25 106 Q=0 
110 VES+INTC35*RND(1)) 
HOW LONG UNTIL ET RETURNS (IN SECONDS)? 7 111 PRINT “A BALL IS THROWN UPWARDS AT";V;"HETERS PER SECOND." 
CLOSE ENOUGH. 112 PRINT 
CORRECT ANSWER IS 7 115 A=.0590*2 
116 PRINT "HOW HIGH WILL 17 GO CIN METERS)"; 
UHAT WILL ITS VELOCITY BE AFTER 4.5 SECONDS? 20 117 GOSUB 500 
NOT EVEN CLOSE.... 120 ABV/5 
CORRECT ANSWER IS -10 122 PRINT "HOU LONG UNTIL IT RETURNS (IN SECONDS)"; 


124 GOSUB 500 
130 THt+IhT (2eVeRND(1)/10 


1 RIGHT OUT OF 3. 132 A=V-10%T 
134 PRINT "WHAT WILL ITS VELOCITY BE AFTER";T; "SECONDS"; 
A BALL IS THROWN UPWARDS AT 25 METERS PER SECOND. 136 GOSUB 500 
140 PRINT 
HOW HIGH WILL IT GO CIN METERS)? 45 150 PRINT Q;"RIGHT OUT OF 3."5 
NOT EVEN CLOSE.... 160 IF Q<2 THEN 100 
CORRECT ANSWER IS 31.25 170 PRINT “ WOT BAD." 
180 GOTO 100 
HOW LONG UNTIL IT RETURNS (IW SECONDS)? 4 500 INPUT G 
NOT EVEN CLOSE.... 502 IF ABS((G-A)/A)<.15 THEN S10 
CORRECT ANSWER IS 5 504 PRINT “NOT EVEN CLOSE...." 
506 GOTO 512 
WHAT WILL ITS VELOCITY BE AFTER 3.2 SECONDS? t2 S10 PRINT "CLOSE ENOUGH." 
NOT EVEN CLOSE.... Sit Q=Q+1 
CORRECT ANSWER IS -? 512 PRINT “CORRECT ANSWER IS "3A 
520 PRINT 
530 RETURN 
0 RIGHT OUT OF 3. 999 END 
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This is one of the more comprehen- 
sive, difficult, and interesting land and 
resource management games. (If 
you've never played one of these 
games, start with HAMMURABI.) 
In this game, you are Premier of 
Setats Detinu, a small communist 
island 30 by 70 miles long. Your job is to 
decide upon the budget of the country 
and distribute money to your coun- 
trymen from the communal treasury. 
The money system is Rallods; each 
person needs 100 Rallods per year to 
survive. Your country’s income comes 
from farm produce and tourists visiting 
your magnificent forests, hunting, YOU NOW HAVE 59907 RALLODS IN THE TREASURY. 
fishing, etc. Part of your land is farm 502 COUNTRYMEN, AND 2000 SQ. MILES OF LAND. 


land but it also has an excellent mineral THIS YEAR INDUSTRY WILL BUY LAND FOR 103 RALLODS PER $0. NILE. 
content and may be sold to foreign LAND CURRENTLY COSTS 10 RALLODS PER SQ. MILE TO PLANT. 


industry for strip mining. Industry 
import and support their own workers. 
Crops cost between 10 and 15 Rallods 
per square mile to plant, cultivate, and 
harvest. Your goal is to complete an 
eight-year term of office without major 


HOW MANY SQ. MILES DO YOU WISH TO SELL TO INDUSTRY? 200 

HOW HANY RALLODS VILL YOU DISTRIBUTE TO YOUR COUNTRYKEN? 50200 
HOW MANY SQ. MILES DO YOU WISH TO PLANT? 500 

HOW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL? 10000 


212 WORKERS CAKE TO THE COUNTRY AND 396 COUNTRYMEN CANE TO THE ISLAND. 


mishap. A word of warning: itisn't easy! 
The author of this program is James 
A. Storer who wrote it while a student at 


OF 500 SQ. MILES PLANTED, YOU HARVESTED 340 SQ. HILES OF CROPS. 
(DUE TO AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.) 
MAKING 17510 RALLODS. 


Lexington High School. YOU WADE 479 RALLODS FRON TOURIST TRADE. 
YOU WOW HAVE 65634 RALLODS 1H THE TREASURY. 
898 COUNTRYMEN, 212 FOREIGN WORKERS, ANB 1800 S@. NILES OF LAND, 
THIS YEAR INDUSTRY WILL BUY LAND FOR 98 RALLODS PER SO. MILE. 
LAND CURRENTLY COSTS {3 RALLODS PER SO. WILE Ta PLANT. 

KING 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY HOW HANY SQ. HILES DO YOU WISH TO SELL TO INDUSTRY? 0 
HOW HANY RALLODS WILL YOU DISTRIBUTE TO YOUR COUNTRYHENT 87800 

THINK AGAIN, YOUVE ONLY 65434 RALLODS IN THE TREASURY 

HOW HANY RALLODS WILL YOU DISTRIBUTE TO YOUR COUNTRYMEN? 40000 
HOW HANY SQ. HILES DO YOU WISH TO PLANT? 400 
HOW HANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL? 6000 


DO YOU WANT INSTRUCTIONS? YES 


498 COUNTRYMEN DIED OF STARVATION 
YOU WERE FORCED TO SPEND 4482 RALLODS ON FUNERAL EXPENSES 
236 COUNTRYMEN CAME TO THE ISLAND. 


CONGRATULATIONS! YOUVE JUST BEEN ELECTED PREMIER OF SETATS 
DETINU, A SHALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR 


JOB 1S TO DECIDE UPON THE COUNTRY’S BUDGET AND DISTRIBUTE 
MONEY TO YOUR COUNTRYMEN FROM THE COMMUNAL TREASURY. OF 600 SQ. MILES PLANTED, YOU HARVESTED 448 SQ. MILES OF CROPS. 


THE HONEY SYSTEM IS RALLODS, AND EACH PERSON NEEDS 100 (DUE TO AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.) 

RALLODS PER YEAR TO SURVIVE. YOUR COUNTRY’S INCOME COHES MAKING 21952 RALLODS. 

FROH FARM PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT YOU WADE 6068 RALLODS FROM TOURIST TRADE. 

FORESTS, HUNTING, FISHING, ETC. HALF YOUR LAND IS FARM LAND DECREASE BECAUSE AIR POLLUTION IS KILLING GAME BIRD POPULATION. 
UHICH ALSO HAS AN EXCELLENT HINERAL CONTENT AND MAY BE SOLD 

TO FOREIGN INDUSTRY (STRIP MINING) WHO INPORT AND SUPPORT 

THEIR OWN WORKERS. CROPS COST BETWEEN 10 AND 15 RALLODS PER 498 COUNTRYHEN DIED IN ONE YEARI I!!! 


SQ, MILE TO PLANT. 


YOUR GOAL 1S TO COMPLETE YOUR @ YEAR TERM OF OFFICE. 


GOOD Luck. 


DUE TO THIS EXTREHE MISMANAGEMENT YOU HAVE NOT ONLY 
BEEN IMPEACHED AND THROWN QUT OF OFFICE BUT YoU 
HAVE ALSO GAINED A VERY BAD REPUTATION. 
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1 PRINT TAB(S4) 5; "KING" 215 IF H<O THEN 200 

2 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 220 IF H<=D~1000 THEN 300 

3 PRINTIPRINTSPRINT 230 PRINT " THINK AGAIN, YOUVE QNLY";D-1000;"SQ. MILES OF FARM LAND" 
4 PRINT "DO YOU WANT INSTRUCTIONS"; 240 IF X<>0 THEN 200 

S INPUT Z$ 250 PRINT “(FOREIGN ENDUSTRY WILL ONLY BUY FARM LAND BECAUSE" 

6 N5=8 260 PRINT “FOREST LAND IS UNECONOHICAL TO STRIP HINE DUE TO TREES," 

10 IF LEFTS(Z$,1)="N" THEN 47 270 PRINT "THICKER TOP SOIL, ETC." 

11 IF Z$="AGAIN" THEN 1960 280 X=1 

12 PRINTSPRINTsPRINT 299 GOTO 200 


20 PRINT “CONGRATULATIONS! YOU’VE JUST BEEN ELECTED PREMIER OF SETATS" 309 p=qNT(D-H) 
22 PRINT “DETINU, A SHALL COMMUAIST ISLAND 30 BY 70 NILES LONG. YOUR" 310 a=INT(A+(HEU)) 


24 PRINT “JOB IS TO DECIDE UPON THE COUNTRY’S BUDGET AND DISTRIBUTE" 320 PRINT “HOW HANY RALLODS WILL YOU DISTRIBUTE TO YOUR COUNTRYNEN"; 
26 PRINT “HONEY TO YOUR COUNTRYMEN FROM THE COMMUNAL TREASURY.” 340 INPUT I 

2€ PRINT "THE MONEY SYSTEM IS RALLODS, AND EACH PERSON NEEDS 100" 342 IF 1<0 THEN 320 

3O PRINT “RALLODS PER YEAR TO SURVIVE. YOUR COUNTRY’S INCOWE CONES" 350 IF I<A THEN 400 

32 PRINT “FROM FARH PRODUCE AND TOURISTS VISITING YOUR NHAGNIFICENT” 360 IF [=A THEN 380 


34 PRINT “FORESTS, HUNTING, FISHING, EYC. HALF YQUR LAND IS FARM LAND" 379 pRINT "  TRINK AGAIN, YOUVE ONLY“ SAS"RALLODS IN THE TREASURY" 
36 PRINT “WHICH ALSO HAG AN EXCELLENT MINERAL CONTENT AND HAY BE SOLD" 375 goto 320 . 


38 PRINT “TO FOREIGN INDUSTRY (STRIP HINING) WHO IMPORT AND SUPPORT" 380 Jeo 

AQ PRINT “THEIR OWN WORKERS. CROPS COST BETWEEN 10 AND 15 RALLODS PER" 399 xzo 

42 PRINT "SQ. MILE TO PLANT.” 395 aso 

44 PRINT “YOUR GOAL IS TO COMPLETE YOUR"SN5S;"YEAR TERM OF OFFICE.” 399 BOTO 1000 

Aé PRINT “GOOD LUCK.” 400 ASINT(A-1) 

47 PRINT 410 PRINT "HOW MANY SQ. HILES DO YOU WISH TO PLANT": 

50 ASINT(60000+( 1000#RND(1))~(1000#RND(1))) 420 INPUT J 

55 BINT(500+(10*RND( 1) )-(10#RND(1))) 421 1F JCO THEN 410 

65 D=2000 422 1F J<=Be2 THEN 426 

100 W=INT(10#RNDG1)495) 423 PRINT "SORRY, BUT EACH COUNTRYMAN CAN ONLY PLANT 2 SQ. HILES” 

102 PRINT 424 GOTO 410 

105 PRINT "YOU NOW HAVE";As"RALLODS IN THE TREASURY.” 426. IF J<=D-1000 THEN 430 

110 PRINT INTCB)S"COUNTRYHEN, "3 427 PRINT "SORRY, BUT YOUVE ONLY";D-1000;"SQ. MILES OF FARN LAND" 

P15 VORINT( (CRND(1)/2) 810410)? 428 GOTO 410 

120 IF C=O THEN 140 AJO ULSINT( JU?) 

130 PRINT INT(C);"FOREIGN UORKERS, "5 435 IF UI<A THEN 500 

140 PRINT "AND" SINT(D)s"SQ. HILES OF LAND." 440 IF Ul=A THEN 490 

150 PRINT "THIS YEAR INDUSTRY WILL BUY LAND FOR":us 450 PRINT" THINK AGAIN, YOUVE ONLY" :As"RALLODS LEFT IN THE TREASURY” 

452 PRINT "RALLODS PER SQ. MILE.” 460 GOTO 410 

155 PRINT "LAND CURRENTLY COSTS";¥9:"RALLODS PER SQ. MILE TO PLANT." 490 K=0 

162 PRINT 495 A=0 

200 PRINT “HOU HANY SQ. HILES DO YOU WISH TO SELL TO INDUSTRY"; 499 GOTO 1000 

210 INPUT H 500 A=A-Ut 
510 PRINT “HOW HANY RALLODS DO YOU MISH TO SPEND GN POLLUTION CONTROL"; 
520 INPUT K 


522 IF K<O THEN 3510 

530 IF K<=A THEN 1000 

340 PRINT " THINK AGAIN, YOUVE ONLY’ SA;"RALLODS REWAINING" 
350 GOTO 510 

600 IF H<>0 THEN 1002 

602 IF I<>0 THEN 1002 

604 IF J<>0 THEN 1002 

606 IF K<>0 THEN 1002 

6097 PRINT 

612 PRINT "GOODBYE." 

614 PRINT “CIF YOU WISH TO CONTINUE THIS GANE AT A LATE DATE, ANSWER” 
616 PRINT ““AGAIN’ WHEN ASKED IF YOU WANT INSTRUCTIONS, AT THE" 
618 STOP 

1000 GOTO 400 

1002 PRINT 

1003 PRINT 

1010 ASINT(A-K) 

1020 A4=A 

1100 IF INT(I/100-B)>=0 THEN 1120 

1105 IF I/#00<50 THEN 1700 

1140 PRINT INT(B~(1/100)); "COUNTRYMEN DIED OF STARVATION" 
1120 FISINTCRND(1)*(2000-D)) 

1122 TF K<25 THEN 1130 

W125 FISINT(FI/(K/25)) 
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Ti30 IF Fic=0 THEN 1150 

1140 PRINT FI;"COUNTRYNEN DIED OF CARBON-NONOXIDE AND DUST INHALATION" 
1150 TF INT((1/100)-B)<0 THEN 1170 

1160 IF Fi>d THEN 1180 

1165 GOTO 1200 

4170 PRINT "YOU WERE FORCED TO SPEND"; INT((FI+(B~(1/100)) 299) 
1172 PRINT "RALLODS OW FUNERAL EXPENSES" 

Ti74 BS=INTCFI+(B-(1/100))) 

TI7S ARINTCA~ CCF 1 4(B-(1/100)))¥#9)) 

1174 GOTO 1185 

1180 PRINT " YOU WERE FORCED 10 SPEND"; INT(F149);"RALLODS ON " 
1181 PRINT “FUNERAL EXPENSES" 

1182 BS=F1 

THGS ASINT(A~(F1#9)) 

1185 IF a>=O THEN 1194 

1167 PRINT "INSUFFICIENT RESERVES TO COVER COST ~ LAND WAS SOLD" 
1189 D=INT(D+(A/U)) 

1190 A=0 

1194 BEINT(B-B5) 

1200 IF H=0 THEN 1250 

1220 CIFINTC H+ (RND(1)#10)-(RND(1)920)) 

1224 IF C90 THEN 1230 

1226 Ci=C1+20 

1230 PRINT Ci;"WORKERS CANE TO THE COUNTRY AND"; 


1250 PEEIRTC(CI/100-B)/10)4(K/25)-( (2000-0) /50)-(F1/2)) 1596 STOP 

1255 PRINT ABS(PL)$"COUNTRYMEN "3 1600 PRINT 

1260 IF P1<O THEN 1275 1602 PRINT 

1265 PRINT "CANE TO"; 1610 PRINT BS;"COUNTRYNEN DIED IN ONE YEARI!H!!" 

1270 GOTO 1280 1615 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" 
1275 PRINT “LEFT"; 1620 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE puT YOU" 

1280 PRINT “ THE ISLAND." 1622 NO=INTCRND(1) #10) 

1290 B=INT(B+Pt) 1625 IF Né<=3 THEN 1470 

1292 CHINT(CHC1) 1630 IF Mé<=é THEN 1680 

1305 U2=INT(((2000-D)¥( (RND(1)41.52/2))? 1635 IF Méce10 THEN 1690 

1310 IF C=O THEN 1324 1670 PRINT “ALSO HAD YOUR LEFT EYE GOUGED OUT." 

1320 PRINT " OF°SINT(J);"SQ. MILES PLANTED," 1672 GOTO 1590 

1324 1F J>U2 THEN 1330 1680 PRINT “HAVE ALSO GAINED A VERY BAD REPUTATION.” 

1326 U2=J 1682 GOTO 1590 

4330 PRINT “ YOU HARVESTED"; INT(J-U2);"SQ. MILES OF CROPS.” 1690 PRINT “HAVE ALSO BEEN DECLARED NATIONAL FINK." 

1340 IF U2=0 THEN 1370 1692 GOTO 1590 

1344 IF Ti>=2 THEN 1370 1700 PRINT 

1350 PRINT " (DUE TO “5 1702 PRINT 

1355 IF Tis0 THEN 1345 1710 PRINT “OVER ONE THIRD OF THE POPULATION HAS DIED SINCE YOU" 
1360 PRINT “INCREASED "5 1715 PRINT “WERE ELECTED TO OFFICE. THE PEOPLE (RENAINING)" 

4365 PRINT “AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY." 1720 PRINT “HATE YOUR GUTS." 

1370 QSIENTC(J-U2)8(U/2)) 1730 GOTO 1570 

13B0 PRINT “ MAKING"; IHT(Q);"RALLODS." 1800 IF B5-Fi<2 THEN 1515 

1390 ASINTCA+Q) 1807 PRINT 

1400 VISINT(((B-P1)#22)4(RND(1) #500)) 1815 PRINT “MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID“ 
1405 V2=INT( (2000-09415) 1820 PRENT "NOT SPEND. AS A RESULT SOME OF YOUR COUNTRYMEN DIED" 
1410 PRINT " YOU HADE“;ABSCINT(V1-V2));"RALLODS FROM TOURIST TRADE." 1825 PRINT “GF STARVATION. THE PUBLIC IS ENRAGED AND YOU HAVE" 
1420 IF V2=0 THEN 1450 1830 PRINT "BEEN FORCED TO EITHER RESIGN OR COMMIT SUICIDE.” 

1425 IF Vi-V2>=Vd THEN 1450 1835 PRINT “THE CHOICE IS yours." 

1430 PRINT “ DECREASE BECAUSE “; 1840 PRINT “IF YOU CHOOSE THE LATIER, PLEASE TURN OFF YOUR COMPUTER" 
1435 G1=10eRNDGT) 1845 PRINT "BEFORE PROCEEDING." 

1440 IF G1<=2 THEN 1460 1850 GOTO 1590 

1442 IF G1¢=4 THEN 1465 1900 PRINT 

1444 IF GI<=6 THEN 1470 1920 PRINT "CONGRATULATIONS! FFfitiiresteutquae 

1446 IF Gi<=8 THEN 1475 1925 PRINT “YOU HAVE SUCCESFULLY COMPLETED YOUR";NS;"YEAR TERM” 
1448 IF GI<=10 THEN 1480 1930 PRINT “OF OFFICE. YOU WERE, OF COURSE, EXTREMELY LUCKY, BUT" 
1450 V3=INT(AtV) 1935 PRINT “NEVERTHELESS, IT’S QUITE AN ACHIEVEMENT, GOOBYE AND GOOD" 
V451 ABINT(AtV3) 1940 PRINT LUCK - YOU’LL PROBABLY NEED IT IF YOU’RE THE TYPE THAT" 
1452 GOTO 1500 1945 PRINT "PLAYS THIS GAHE.” 

1460 PRINT “FISH POPULATION HAS DWINDLED DUE TQ WATER POLLUTION." 1950 GOTO 1590 

1462 GOTG 1450 1960 PRINT "HOW WANY YEARS HAD YOU BEEN IN OFFICE WHEN INTERRUPTED"; 
1465 PRINT “AIR POLLUTION 19 KILLING GAME BIRD POPULATION." 1961 INPUT X5 

1467 GOTO 1450 1962 IF X5<O THEN 1590 

1470 PRINT “MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION." 1963 IF X5<@ THEN 1969 

1472 GOTO 1450 1965 PRINT "| COHE ON, YOUR TERM IN OFFICE IS ONLY’ ;NS;"YEARS." 
1475 PRINT “UNPLEASANT SHOG IS DISCOURAGING SUN BATHERS.” 1967 GOTO 1960 

1477 GOTO 1450 1969 PRINT "HOW KUCH DID YOU HAVE IN THE TREASURY"; 

1480 PRINT “HOTELS ARE LOOKING SHABBY DUE TO SKOG GRIT.” 4970 IHPUT A 

1482 GOTO 1450 1971 IF ACO THEN 1590 

1500 IF B5>200 THEN 1600 1975 PRINT "HOW HANY COUNTRYMEN"; 

1505 IF B<343 THEN 1700 1976 INPUT B 

1510 IF (A4/100)>5 THEN 1800 1977 IF B<O THEN 1590 

1515 IF C>B THEN 1550 1980 PRINT “HOW MANY WORKERS": 

1520 1F N5-1=X5 THEN 1900 1981 INPUT C 

1545 GOTO 2000 1982 IF C<O THEN 1590 

1550 PRINT 1990 PRINT "HOW MANY SG. MILES OF LAND"; 

1552 PRINT 1991 INPUT D 

1560 PRINT “THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER" 1992 IF D<O THEN 1590 

1562 PRINT "OF COUNTRYMEN. AS A HAJORITY THEY HAVE REVOLTED AND" 1993 IF D>2000 THEN 1996 

15964 PRINT "TAKEN QVER THE COUNTRY." 1994 IF B>1000 THEN 100 

1570 IF RND(1)<=.5 THEN 1580 1996 PRINT " CONE ON, YOU STARTED WITH 1000 SQ. HILES OF FARH LAND” 
1574 PRINT "YOU HAVE BEEN THROWN QUT OF OFFICE AND YOU ARE now" 1997 PRINT “AND 10000 SQ. MILES OF FOREST LAND." 

1576 PRINT "RESIDING IN PRISON.” 1998 GOTO 1990 

1578 GOTO 1590 2000 X5=X5+i 

1580 PRINT "YOU HAVE BEEN ASSASSINATED.” 2020 BS=0 

1590 PRINT 2040 GOTO 100 

1592 PRINT 2046 END 
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Letter 


LETTER is similar to the game 
GUESS in which you guess a number 
chosen by the computer; in. this 
program, the computer picks a random 
letter of the alphabet and you must 
guess which one it is using the clues 
provided as you go along. It should not 
take you more than five guesses to get 
the mystery letter. 

The program which appears here is 
loosely based on the original written by 
Bob Albrecht of People’s Computer 
Company. 


10 PRINT TAB(33);"LETTER" 


20 PRINT TAB(IS);"GREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


30 PRINTsPRINTSPRINT 

100 PRINT “LETTER GUESSING GAHE": PRINT 

210 PRINT “I°LU THINK OF A LETTER OF THE ALPHABET, A TO Z." 
220 PRINT “TRY TO GUESS HY LETTER AND I’LL GIVE YOU CLUES” 
230 PRINT “AS TO HOW CLOSE YOU’RE GETTING TO HY LETTER." 
310 L=S5+ENT (RND( 1) #24) 

320 G=0 

340 PRINTs PRINT “O.K., I HAVE A LETTER. START GUESSING.” 
410 PRINTs PRINT "WHAT IS YOUR SUESS"; 

420 Gert 

430 INPUT A$: AFASC(AS): PRINT 

440 IF A=L THEN 500 

450 IF ADL THEN 480 

460 PRINT "TOO LOW. TRY A HIGHER LETIER."s GOTO 410 

480 PRINT “TOO HIGH. TRY A LOWER LETTER.“: GOTO 410 

500 PRINT: PRINT “YOU GOT 17 IN“;G;*GUESSESII" 

504 IF 6<=5 THEN 508 


506 PRINT “BUT IT SHOULDN’T TAKE HORE THAN 5 GUESSES1"s GOT@ 515 


508 PRINT “GOOD JOB Iti!i* 
S10 FOR N=1 TO 15s PRINT CHRS(7);: NEXT W 
S15 PRINT 


520 PRINT “LET“S PLAY AGAIN....." 
530 GOTO 310 
999 END 


SYSTEH RESPONSE MAY BE SLOW AT TIMES. CURRENTLY RUNNING ON 192K OF HEMORY. 


READY 


LETTER 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


LETTER GUESSING GAKE 

T‘LL THINK OF A LETTER OF THE ALPHABET, A TO Z. 
TRY TO GUESS HY LETTER AND I°LL GIVE YOU CLUES 
AS TO HOU CLOSE YOUCRE GETTING TO MY LETTER. 
Q.K., I HAVE A LETTER. START GUESSING. 

WHAT IS YOUR GUESS? N 

TOO HIGH. TRY A LOWER LETTER. 

WHAT IS YOUR GUESS? F 

YOU GOT £7 IN 2 GUESSES!) 

GOOD JOB ttt 

LET“S PLAY AGAIN..... 

O.K., 1 HAVE A LETTER. START GUESSING. 

WHAT IS YOUR GUESS? H 

TOO HIGH. TRY A LOWER LETTER. 

WHAT IS YOUR GUESS? F 

TOO HIGH. TRY A LOWER LETTER. 

WHAT IS YOUR GUESS? C 

TOO LOW. TRY A HIGHER LETTER. 

WHAT IS YOUR GUESS? E 

TOO HIGH. TRY A LOWER LETTER. 

WHAT IS YOUR GUESS? D 

YOU GOT If IN 5 GUESSESI! 

GOOD JOB tttt 

LET“S PLAY AGAIN..... 

G.K., T HAVE A LETTER. START GUESSING. 

WHAT 1S YOUR GUESS? 


BREAK IN 430 


The Game of Life was originally 
described-in, Scientific American, Oc- 
tober 1970; in an article by Martin 
Gardner. The game itself was 
originated by John Conway of Gonville 
and Caius College, University of Cam- 
bridge, England. 

In the “manual” game, organisms 
exist in the form of counters (chips or 
checkers) on alarge checkerboard and 
die or reproduce according to some 
simple genetic rules. Conway’s criteria 
for choosing his genetic laws were 
carefully delineated as follows: 


1. There should be no initial pattern for 
which there is a simple proof that the 
population can grow without limit. 

2. There should be initial patterns that 
apparently do grow without limit. 

3.There should be simple initial 
patterns that grow and change fora 
considerable period of time before 
coming to an end in three possible 
ways: fading away completely (from 
overcrowding or from becoming too 
sparse), settling into a stable con- 
figuration that remains unchanged 
thereafter, or entering an oscillating 
phase in which they repeat an 
endless cycle of two or more periods. 


In brief, the rules should be such as 
to make the behavior of the population 
relatively unpredictable. Conway's 
genetic laws are delightfully simple. 
First note that each cell of the checker- 
board (assumed to be an infinite plane) 
has eight neighboring cells, four adja- 
cent orthogonally, four adjacent 
diagonally. The rules are: 


1. Survivals. Every counter with two or 
three neighboring counters survives 
for thé next generation. 

2. Deaths. Each counter with four or 
more neighbors dies (is removed) 
from overpopulation. Every counter 
with one neighbor or none dies from 
isolation. 

3. Births. Each empty cell adjacent to 
exactly three neighbors — no more, 
no fewer — isa birth cell. Acounter is 
placed on it at the next move. 


It is important to understand that all 
births and deaths occur simultaneous- 
ly. Together they constitute a single 
generation or, as we shall call it, a 
“move” in the complete “life history” of 
the initial configuration. 


You will find the population con- 
stantly undergoing unusual, 
sometimes beautiful and always unex- 
pected change. In a few cases the 
society eventually dies out (all 
counters vanishing), although this may 
not happen until after a great many 
generations. Most starting patterns 
either reach stable figures — Conway 
calls them “still lifes” — that cannot 
change or patterns that oscillate 
forever. Patterns with no _ initial 
symmetry tend to become 
symmetrical. Once this happens the 
symmetry cannot be lost, although it 
may increase in richness. 

Conway used a DEC PDP-7 with a 
graphic display to observe long-lived 
populations. You'll probably find this 
more enjoyable to watch on a CRT than 
a hard-copy terminal. 

Since MITS 8K BASIC does not have 
LINE INPUT, to enter leading blanks in 
the pattern, type a “.” at the start of the 
line. This will be converted to a space 
by BASIC, but it permits you to type 
leading spaces. Typing DONE in- 
dicates that you are finished entering 
the pattern. See sampie run. 

Clark Baker of Project DELTA 
originally wrote this version of LIFE 
which was further modified by Steve 
North of Creative Computing. 


LIFE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


ENTER YOUR PATTERN: 
2. +88 

1. *% 

7 .* 68 

7 DONE 


GENERATION: 0 POPULATIONS 7 


64% 


100 


GENERATION: 1 


GENERATION: 2 


GENERATIONS 3 


GENERATION: 4 


POPULATION: 8 


POPULATION: 9 


eae 
¥ * 
ee OF 


POPULATION: 10 


oF Fe 


POPULATION: 12 


GENERATION: 13 POPULATION: 30 GENERATION: 16 POPULATION: 48 GENERATION: 19 POPULATION: 54 


Poy * +4 
Pid * 
* * eH 
’ 86 * * 
* * ry ee ce 9O DONbRNRORES Oy 
+ * 9 2 | #0 08 8 ee ee £8 
* ae * CC, ee ee * * * ’ 
* 8 © ¢@ see aoee > @ ee owe 6 
one 6 4e * 8 Ce a 
ry * an Pd et ee 
. * 
GENERATION: 14 POPULATION: 39 GENERATION: 17 POPULATION: 46 GENERATION: 20 POPULATION: 61 
? * 
’ aoe +04 
oon one 
ee 
* * 0 8 Bee eeesengns 
* * we 8 ee Oe 
tg * " PT ee es eee ss 
or one * * * * + ot ee eee Oe 
+ +98 te0 6 + 98 eae Soe 68 & 
Ce ee eT * * oe 8 
7 ry ory 20 er ol 
as “7 
GENERATION: 15 POPULATION: 37 GENERATION: 16 POPULATION: 34 GENERATIONS 21 POPULATION: 67 
* aoe 
* 
28 ee *% 
* + e * * 
* s one 8 Bae 
one one 2986 08 8S ROR we + a8 
Co oe oe eee Pd e+ eee as 
s * * see * ove 
os os 0 a8 ee ee ee 2908 88006) BOER 
* 8 ¢ * 8 6 * hy “+ ” 
eee Pry a * ooees aes 
ee ** ane e048 
2 PRINT TAB(34);"LIFE° 260 IF ACK,Y}<>1 THEN 270 
4 PRINT TABCIS); "CREATIVE COMPUTING NORRISTOWN, NEW JERSEY" 261 PRINT TAB(Y)s"e"s 
& PRINT: PRINTs PRINT 262 IF XCX3 THEN X3=X 
& PRINT “ENTER YOUR PATTERN?" 264 IF X>X4 THEN X4=uX 
9 Xtete Yiets X2524: ¥2%70 266 IF Y¥<¥3 THEN Y3e¥ 
10 DIN A(24,70),B9(24) 268 IF Y>¥4 THEM Y4ay 
20 Cai 270 NEXT Y 
JO INPUT BS(C) 290 NEXT X 
40 1F BS(C)="DONE" THEN B9(C)="": GOTO 80 295 FOR X=X2+1 TO 24: PRINT: NEXT X 
SO IF LEFT@(B9(C),2)0"." THEN BS(C)=" "“+RIGHTS(BO(C) ,LEN(BS(C))-1) 299 XtaX3s X2=X42 YlBVIs Y2=V4 
60 C=c+t 301 IF XiC3 THEN Xt=3s [92-1 
70 GOTO 30 303 IF X2922 THEN X2222: 198-1 
80 CaC-1t: L=0 305 IF Yicd THEN Ytags 195-1 
90 FOR X=1 TO C-1 307 IF ¥2>68 THEN Y2=ed8: 19-1 
100 IF LEN(BS(X)2>L THEN L=LEN(BS(X)) JOP Pao 
110 NEXT X 500 FOR X=Xt-1 TO X2+1 
120 X12tt-0/2 510 FOR Yevt-1 70 ¥2s4 
130 Y1233-L/2 520 €=0 
140 FOR X31 10 € 330 FOR Iex-{ TO X+t 
150 FOR Y=! TO LEN(BS(X)) 340 FOR J#¥-i TQ Y+! 
160 IF MIDS(BS(X),Y,12<>" “ THEN ACKT#HX, Vt+¥ =i :PeP+i 550 IF ACI,J)21 OR ACI,J)=2 THEN C#Ct+t 
170 NEXT Y 560 NEXT J 
180 NEXT X 570 NEXT I 
200 PRINTSPRINTSPRINT 580 TF A(X,Y)=0 THEN 410 
210 PRINT “GENERATION: "3G,"POPULATION:";P;: IF 19 THEN PRINT “INVALID"; 590 IF C<3 OR C>4 THEN A(X,Y)=2: GOTO 400 
2t5 X3=24s Y3=708 X4ete Yaets Pad S95 P=P+1 
220 GeG+1 600 GOTO 620 
225 FOR X=1 TO Xt-t2 PRINT: NEXT X $10 IF C=3 THEN A(X, Yeas PaPti 
230 FOR X#X1 TO X2 620 NEXT Y 
240 PRINT $630 NEXT X 
250 FOR Y*¥1 TO ¥2 635 XteXt- ts YisVi-ds X2sX2+1s Y2ev2+1 
253 IF A(X, ¥)32 THEN A(X,¥)*0: GOTO 270 640 GOTO 210 
256 IF A(X,Y)=3 THEN ACX,¥)=1: GOTO 261 650 END 
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Life for Two 


LIFE-2 is based on Conway’s game 
of Life. You must be familiar with the 
rules of LIFE before attempting to play 
LIFE-2. 

There are two players; the game is 
played on a 5x5 board and each player 
has a symbol to represent his own 
pieces of ‘life.’ Live cells belonging to 
player 1 are represented by ‘*’ and live 
cells belonging to player 2 are repre- 
sented by the symbol ‘#’. 

The # and * are regarded as the same 
except when deciding whether to 
generate a live cell. An empty cell 
having two ‘#’ and one “’ for neighbors 
will generate a ‘#’, i.e. the live cell 
generated belongs to the player who 
has the majority of the 3 live cells 
surrounding the empty cell where life is 
to be generated, for example: 


2 PRINT TABC33)5“LIFE2" 


A new cell will be generated at (3,3) 
which will be a ‘#’ since there are two ‘#' 
and one ‘*’ surrounding. The board will 
then become: 


On the first move each player 
positions 3 pieces of life on the board 
by typing in the co-ordinates of the 
pieces. (in the event of the same cell 
being chosen by both players that cell 
is left empty.) 

The board is then adjusted to the 
next generation and printed out. 

On each subsequent turn each 
player places one piece on the board, 
the object being to annihilate his 
opponent's pieces. The board is ad- 
justed for the next generation and 
printed out after both players have 
entered their new piece. 

The game continues until one player 
has no more live pieces. The computer 
will then print out the board and 
declare the winner. 

The idea for this game, the game 
itself, and the above write-up were 
written by Brian Wyvill of Bradford 
University in Yorkshire, England. 


360 HOS K)10002 HIeNStis PRINT " @ 


365 RETURN 


4 PRINT TAB(15); "CREATIVE COMPUTING MORRISTOUN, NEW JERSEY” 399 NCS,K)eO2 PRINT “9 "3s RETURN 
500 PRINT TAB(10);"U.B. LIFE GANE* 


& PRINT:PRINTSPRINY 
7 DIN NC6,G),K(18),AC16) X42), 02) 


@ DATA 3,102, 103,120,130,121, 112, 111,12 


305 N20: N30 
310 FOR J=1 70 5 


9 DATA 21,30,1020,1030, 1011, 1021, 1003, 1002, 1012 S11 FOR Kel 105 


10 FOR Me? TO 18: READ K(A)s NEXT H 


515 NCJ,K>80 


V3 DATA -1,0,1,0,0,-1,0,1,-l,-t,t,-t,-t,t,t,t S16 KEXT K 


14 FOR Ol# 1 TO 162 READ ACO): NEXT 01 


20 GOTO 500 

30 FOR J=1 105 

St FOR Ket TO 5 

55 IF W(J,K)>99 THEN GOSUB 200 


31? WEXT J 


S19 FOR Bi TO 2: Pie3: IF Ba2 THEN Pi=30 
520 PRINT “PLAYER"3B;* - 3 LIVE PIECES.” 
535 FOR Kt=t TO 3: BOSUB 700 

540 NCXCB),YCR))=Pts NEXT K1 


40 NEXT K 542 NEXT B 

45 NEXT J 559 BOSUB 90 

90 K=Oa M2": N3=0 560 PRINT: GOSUB 50 

$9 FOR J=0 TO dé: PRINT 570 IF M2=0 THEN IF M3=0 THEN 574 

100 FOR K=O To 6 571 IF M30 THEN Bett 6070 575 

10% JF J0>0 THEN IF J0>6 THEN 105 572 IF M2=0 THEN B=2: GOTO 575 

102 IF K=é THEN PRINT O;: GOTO 125 573 60TO 580 

103 PRINT Kj: BOTO 120 574 PRINT: PRINT “A DRAW"SSTOP 

105 IF KC>O THEN IF K<>6 THEN 110 575 PRINT: PRINT “PLAYER":Bs"IS THE WINNER": STOP 
106 IF Jeé THEN PRINT O: GOTO 126 560 FOR Bet 70 2: PRINTs PRINT “PLAYER";B;: GOSUB 700 
107 PRINT J3s GOTO 120 Set IF B99 THEN 540 

1t0 GOSUB 300 582 WEXT B 

120 WEXT K 5BG NCXCTD VCE) M1008 NCXC2),¥C2) 281000 

1235 NEXT J 596 6OTO 560 

126 RETURN 700 PRINT "X,Y" sPRINT"XXXXXX"FCHRG (13) 7 "999999" SCHRS (1S) "ShSRE8"s 
200 Bele IF N(U,K)>999 THEN Bato 7Ot PRINT CHRS(T3);2 INPUT Y(B),X(B) 

220 FOR Of= 1 YO 15 STEP 2 705 IF X(B)<#5 THEN IF X(B)>0 THEN 708 

230 NCJFACOT) KEACOT+1) HC IFACOT) KEACOT EE DOR 706 GOTO 750 

231 WEXT 01 708 IF ¥(B)<25 THEN IF Y(B)>0 THEN 715 

239 RETURN 710 GOTO 750 

300 IF NCJ,K)C3 THER 399 713 TF ONCXCBD,Y(B))<>0 THEN 750 

305 FOR Of=1 TO 18 720 IF Bat THEN RETURN 

310 IF NCJ,K)*=K(01) THEN 350 725 IF X¢1)9X(2) THEN IF ¥¢9)"¥(2) THEN 740 

315 WEXT Ot , 730 RETURN 

320 GOTO 399 740 PRINT "SAHE COORD. SET TO 0” 

350 IF O1>9 THEN 360 74t WOXC B40, Y(B)+8)20: B99: RETURN 

351 NCI, K)81002 M2sH24is PRINT “ 8 "3 750 PRINT "ILLEGAL COORDS. RETYPE": SaTO 700 

355 RETURN 999 EWD 
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Literature Quiz 


This is a simple CAl-type program { PRINT TAB(25);"LITERATURE QUIZ" 
which presents four multiple-choice 2 PRINT TAB(1S); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY® 
questions from children’s literature. : Pea RENTSPRINT 
Running the program is self- 10 PRINT “TEST YOUR KNOWLEDGE OF CHILDREN’S LITERATURE.” 
explanatory. 12 PRINT: PRINT “THIS IS A HULTIPLE-CHOICE auIz." 

The program was written by Pamela 13 PRINT “TYPE Ai, 2, 3, OR 4 AFTER THE QUESTION MARK." 
McGinley while at DEC. 15 PRINT: PRINT "GOOD LUCKI"s PRINT: PRINT 


40 PRINT "IN PINOCCHIO, WHAT WAS THE NAHE OF THE CAT” 
42 PRINT “H)TIGGER, 2)CICERO, J)FIGARO, 4)GUIPETTO"; 
AS INPUT As IF A=3 THEN 46 
44 PRINT “SORRY...FIGARO WAS HIS NAME.": GOTO 50 
LITERATURE QUIZ 46 PRINT “VERY GODDI HERE’S ANQTHER.” 

CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 47 RaR+1 
50 PRINT: PRINT 
St PRINT "FROW WHOSE GARDEN BID BUGS BUNNY STEAL THE CARROTS?” 
S2 PRINT "Q)HR. NEXON’S, 2)ELWER FUDD‘S, 3)CLEM JUDD’S, 4)STROMBOLI‘S"; 


TEST YOUR KNOWLEDGE OF CHILDREN’S LITERATURE. 53 INPUT Az IF A=2 THEN 56 
54 PRINT “TOO BAD...IT WAS ELMER FUDD’S GARDEN.": GOTO 60 
THIS IS A MULTIPLE-CHOICE QUIZ. 56 PRINT “PRETTY GOOD!" 
TYPE A 1, 2, 3, OR 4 AFTER THE QUESTION MARK. 57 R=R+ 
60 PRINT: PRINT 
GOOD LUCK 61 PRINT “IN THE WIZARD QF OZ, DORGTHY’S DOG WAS NAMED” 


42 PRINT "1) CICERG, 2) TRIXIE, 3) KING, 4) TOTO "; 
63 INPUT As IF A=4 THEN 46 


IX PINGCCHIO, YHAT WAS THE NAME OF THE CAT 44 PRINT “BACK TO THE BOOKS,...TOTO WAS HIS NAME.“: GOTO 70 
T)TIGGER, 2)CICERG, S)FIGARO, 4)GUIPETTO? 2 66 PRINT "YEA! YOURE A REAL LITERATURE GIANT." 
SORRY...FIGARO WAS HIS NAHE. 67 RER+Y 


70 PRINTsPRINT 
71 PRINT “WHO WAS THE FAIR HAIDEN WHO ATE THE POISON APPLE" 


FROM WHOSE GARDEN DID BUGS BUNNY STEAL THE CARROTS? 72 PRINT “1)SLEEPING BEAUTY, 2)CINDERELLA, 3)SNQW WHITE, 4)UENDY": 
T)MR. NEXON’S, 2)ELNER FUDD’S, J)CLEM JUDD“S, 4)STROMBOLI“S? 2 73 INPUT As IF Ae3 THEN 76 
PRETTY GOOD: 74 PRINT “OH, COME ON WOW...1T WAS SNOW WHITE.” 
75 GOTO 80 
76 PRINT "GOOD MEMORYI* 
IN THE WIZARD GF GZ, DOROTHY“S DOG WAS NAMED 77 ReReh 
1) CICERO, 2) TRIXIE, 3) KING, 4) TOTO 74 G0 PRINT:PRINT 
YEA! YOUCRE A REAL LITERATURE GIANT. 85 IF R=4 THEN 100 


90 IF RC2 THEN 200 
92 PRINT “NOT BAB, BUT YOU HIGHT SPEND A LITTLE MORE TINE" 


WHO VAS THE FAIR WAIDEN WHO ATE THE POISON APPLE 94 PRINT "READING THE NURSERY GREATS." 
TISLEEPING BEAUTY, 2)CINDERELLA, 3)SNOU WHITE, 4)WENDYT 1 96 STOP 
OH, COME ON NOU...IT WAS SNOW WHITE. 100 PRINT “WOW! THAT’S SUPER! YOU REALLY KNOW YOUR NURSERY” 


110 PRINT “YOUR NEXT QUIZ WILL BE ON 2ND CENTURY CHINESE" 
120 PRINT “LITERATURE (HA, HA, HA)” 


NOT BAD, BUT YOU MIGHT SPEND A LITTLE MORE TIME 130 STOP 

READING THE NURSERY GREATS. 200 PRINT “UGH. THAT WAS DEFINITELY NOT TOO SWIFT. BACK TO" 
205 PRINT “NURSERY SCHOOL FOR YOU, MY FRIEND." 

BREAK IN 96 999 END 
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- Leve 


This program is 


designed 


to 


reproduce Robert Indiana's great art 
work “Love” with a message of your 
choice up to 60 characters long. 


Your message is input as 
Statement 60. Statements 1 


A$ in 
00-130 


repeat the message A$ if it is less than 


60 characters long and insert iti 


nto T$. 


Statements 210-400 actually print the 


design. The data statements 


are an 


alternating count of the number of 
characters and blanks which form the 
design. These data give the correct 
proportions for a standard 10 character 
per inch Teletype or line printer. The 
13.2 characters per inch of the Teletype 
Model 43 on which this was printed 


cause some distortion. 


The love program was created by 


David Ah. 


LOVE 
CREATIVE COMPUTING MORRISTOWN, NEU 


A TRIBUTE TO THE GREAT AMERICAN ARTI 
HIS GREAT WORK WILL BE REPRODUCED WI 
YOUR CHOICE UP TO 60 CHARACTERS. IF 
A WESSAGE, SIMPLE TYPE THE WORD “LOV 


YOUR KESSAGE, PLEASE? LOVE 


LOVELOVELOVELOVELOVELOVELOVELOVELOVE, 


L QVELOVELOVEL OVELOVELOVE 
Lov ELOVELOVELOVELOVELOVELOV 
LOVE VELOVELOVELOVELOVELQVEL 
LOVE VELOVELOVELOVELOVELOVE 
LOVE VELOVELOVELOVELOVELOV 

LOVE VELOVELOVELOVELOVELOV 

LOVE VELOVELOVELOVELOVELOV 

LOVE VELOVELOVELOVELOVELOV 

LOVE VELOVELOVELOVELOVELOV 

LOVE VELOVELOVELOVELOGVELOV 

LOVE VELOVELOVELOVELGVEL V 

LOVE VELOVELOVELOVELOVEL V 

LOVE VELOVELOVELOVELOVE Vv 

LOVE VELOVELOVELOVELOV Vv 

LOVE VELOVELOVELOVEL VE 

L VELOV 
L VELOVE 
L VELOV 

L VELOV 

LOVE VELGVELOVELQVY VELOVELOVE 
LOVEL ELOVELOVELO  OVELOVELOVE 
LOVEL ELOVELOVELO  QVELOVELOVE 
LOVELO LOVELOVEL  LOVELOVELOVE 
LOVELO LOVELOVEL  LOVELOVELOVE 
LOVELOV OVELOVE ELGVELOVELOVE 
LOVELOV QVELOVE ELOVELOVELOVE 
LOVELOVE VELOV VELOVELOVELOVE 
LOVELOVE VELOV VELOVELOVELOVE 
LOVELOVEL ELO QVELOVELOVELOVE 
LOVELOVEL EL@ GVELOVELOVELOVE 
LOVELOVELO L  _LOVELOVELOVELOVE 
LOVELOVELO LOVELOVELOVELOVE 
LOVELOVELOV ELOVELQVELOVE 
LOVELOVELOV ELOVELOVELOVE 


LOVELOVELOVELOVELOVELOVELOVELOVELOVE 


JERSEY 


ST, ROBERT INDIANA. 
TH A MESSAGE OF 

YOU CAN’T THINK OF 
EY 


LOVELOVELOVELOVELOVELOVE 
Lov LOVELOVELOVE 
LOVELOVE 
VELOVE 
ELOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
ELOVE 
LOVELOVE 
LOVELOVELOVE 

E 

E 

VELOVELOVELO E 
VELQVELOVELOVE = E 
VELOVELOVELOVEL £ 
VELOVELOVELOVELO E 
VELOVEL VELOVELOVE 
VELOVE VELOVELOVE 
VELOVELOVE 

VELOVE VELOVELOQVE 
VELOVEL VELOVELOVE 
VELQVELQVELGVELG E 
VELQVELOVELOVEL £& 


LOVEL 
VELOVELO 
OVELOVELGV 
LOVELOVELOV 
ELOVELOVELO 
VELOVELOVEL 
OVELOVELOVE 
LOVELOVELOV 
LOVELOVELO 
OVELOVEL 
VELOV 


Lov 


VELQVELOVELOVE = E 
VELOVELOVELO E 

E 

E 
LOVELOVELOVELOVELOVELOVE 
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2 PRINT TAB(33); "LOVE" 

4 PRINT TAB(IS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 
& PRINT: 
20 PRINT 
30 PRINT 
40 PRINT 
30 PRINT 
60 INPUT 
70 DIN T$(120): FOR I=1 TO 10: PRINT: NEXT I 
FOR J=0 TO INT(60/L) 


100 
110 
120 
130 
140 
200 
205 
210 
240 
300 
400 
410 
600 
810 
$20 
630 
640 
650 
460 
670 
680 
690 
700 
710 
999 


FOR I 


PRINTs PRINT 

"A TRIBUTE TO THE GREAT AMERICAN ARTIST, ROBERT INDIANA.” 
"HIS GREAT WORK WILL BE REPRODUCED WITH A MESSAGE OF" 
“YOUR CHOICE UP TO 60 CHARACTERS. IF YOU CAN’T THINK OF" 
"A KESSAGE, SIMPLE TYPE THE WORD “LOVE’": PRINT 

“YOUR HESSAGE, PLEASE";A$: L=LEN(A$) 


21 TOL 


T8(J#L +I) =HID$(AS, 1,1) 


NEXT 


aie 
Pai 


READ 
FOR I 
FOR I 
IF Al 
GoTo 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Ts NEXT J 


Pei: C=C+1: IF C=3?7 THEN 999 
A: AT=AI+A: IF P= THEN 300 


=1 TO As PRINT “ "$s NEXT Is P=t: GOTO 400 
SAI-A TO Af-ts PRINT TS$CI}>2 NEXT Is P=0 


>60 THEN 200 
210 

60 1,12,26,9412,3,8,24,17,8,4 75,23) 21 6,456,225) 12 556) 5 

Ay by 2ty11y8y6,4,4,6,21, 10, 10,5,4,4) 6,21 9) 11,594 

Hy Gy 2b By 1145, 4,4 55,21 Py hb 744s by 2T 5 by 11 yy 4 

AOyNQy ty 1S pth pF pA edy byl Py by bp 5p 10,10) 4,4,6, 18,2, 156,8, 11,4 
Ay Gy 17 pF y 157 php 13,444, b, 15,5, 2,23, 55 1) 2975, 1748 
1,2759,9,12,1,13,5 p40) 151,13,5,40, 1,46, 19,5,10,6, 12,551 
5p6,11,3, 11,5, 14,3,1,5,6,11,3, 11,6, 15,21 

6b pF yb y12y by 1 by by ly by 9 gS, 12,6, 751,10 

74 by7y3yl3yby6y 2410579657 ,5, 13,14, 10,8,5)5) 3, 14,5)6)24 10 
B65 pS) 1465751) 10, 9,6 ,5,5,15 6) 16, Tl 

56,3, 3,155 by 15425 141056513, 16,5, 14,3, 1, 10,10, 1656, 1255, 
11,8,13,27,1,11,8,13,27,1,60 

21 TO 10: PRINT: NEXT I: END 


 LunarLEM Rocket 


This game in its many different 
versions and names (ROCKET, 
LUNAR, LEM, and APOLLO) is by far 
and away the single most popular 
computer game. It exists in versions 
that start you anywhere from 500 feet to 
200 miles above the moon, or other 
planets, too. Some allow the control of 
directional stabilization rockets and/or 
the retro rocket. The three versions 
presented here represent the most 
popular of the many variations. 

In most versions of this game, the 
temptation is to slow up too soon and 
then have no fuel left for the lower part 
of the journey. This, of course, is 
disasterous (as you will find out when 
you land your own capsule)! 

LUNAR was originally in FOCAL by 
Jim Storer while a student at Lexington 
High School and subsequently con- 
verted to BASIC by David Ahi. 
ROCKET was written by Eric Peters at 
DEC and LEM by William Labaree II of 
Alexandria, Virginia. 

In this program, you set the burn rate 
of the retro rockets (pounds of fuel per 
second) every 10 seconds and attempt 
to achieve a soft landing on the moon. 
200 Ibs/sec really puts the brakes on, 
and 0 |bs/sec is free fall. Ignition occurs 
at 8 Ibs/sec, so do not use burn rates 
between 1 and 7 lbs/sec. To make the 
landing more of a challenge, but more 
closely approximate the real Apollo 
LEM capsule, you should make the 
available fuel at the start (N) equal to 
16,000 Ibs, and the weight of the 
capsule (M) equal to 32,500 Ibs in 
Statement 15. 

Some versions of BASIC object to 
the series expansion calculations in 
Statements 420 and 430 (as you near 
the lunar surface, these numbers get 
very small). If your does, substitute the 
following expanded form for the ex- 
pansion in Statement 420: 
-Q™(14+Q*(1/2+Q*(1/3+Q*(1/4+Q/5)))) 


You should be able to figure the 
other one out yourself. 


LUNAR 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


THIS IS A COMPUTER SIMULATION OF AN APOLLO LUNAR 


LANDING CAPSULE. 


THE ON-BOARD COMPUTER HAS FAILED 
80 YOU HAVE TO LAND THE CAPSULE MANUALLY. 


GOOD LUCK 

SEC I+ FT MPH LB FUEL BURN RATE 
0 #20 9 3600 16500 a) 
10 109 «S018 4656 14500 10 
20 99 = 4223 3672 146500 10 
RLY 89 «2903 3708 16500 70 
40 79° «1055 3744 16500 10 
50 68 3959 3780 16500 70 
60 58 1055 Fa16 16500 70 
70 47 2903 3852 16500 1 200 
80 37) «1883 3482.87 14500 ? 200 
90 28° «1991 3086.71 12300 Y 200 
100 20 1251 2659.45 10500 7 200 
10 13 2549 2196.95 8500 % 200 
120 8 370 1692.43 6500 t 100 
130 3 3778 1440.59 5500 1735 


OW MOON AT 139.926 SECONDS - IMPACT VELOCITY 1253.25 MPH 
SORRY THERE WERE NO SURVIVORS. YOU BLEW ITI 
IM FACT, YOU BLASTED A WEW LUNAR CRATER 347.15 FEET DEEP! 


TRY AGAIN?? 

tO PRINT TAB(343) 3 "LUNAR" 

20 PRINT TAB(IS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

25 PRINTSPRINT2 PRINT 

30 PRINT “THIS IS A COMPUTER SIMULATION OF AN APOLLO LUNAR 

40 PRINT "LANDING CAPSULE.": PRINT: PRINT 

50 PRINT “THE ON-BOARD COMPUTER HAS FAILED (1T WAS MADE BY" 

60 PRINT "XEROX) SO YOU HAVE TQ LAND THE CAPSULE MANUALLY.” 

70 PRINT: PRINT "SET BURN RATE OF RETRO ROCKETS TO ANY VALUE BETWEEN” 
80 PRINT “O (FREE FALL) AND 200 (MAXIMUM BURN) POUNDS PER SECOND.” 
90 PRINT “SET NEW BURN RATE EVERY {0 SECONDS.": PRINT 

100 PRINT "CAPSULE WEIGHT 32,500 LBS; FUEL WEIGHT 16,500 LBS." 

110 PRINT: PRINT: PRINT: PRINT “GOOD LUCK" 

120 L=0 

130 PRINT: PRINT "SEC", "MI + FI", "MPH", "LB FUEL", "BURN RATE" :PRINT 
140 AF120:V=tsH=3F000! N= 16500:G=1E-03:2=1.8 

150 PRINT Ly INTCADSINT(S280%(A-INT(A))),3600%,M-N,s INPUT KiT=10 
160 IF H-N<TE-03 THEN 240 

170 IF T<tE-O3 THEN 150 

180 S=T: IF M>=N+S#K THEN 200 

170 S=CM-N)/K 

200 GOSUB 420: IF I<=0 THEN 340 

210 IF V<=0 THEN 230 

220 IF J<Q THEN 370 

230 GOSUB 330: GOTO 160 

240 PRINT “FUEL OUT AT" ZL; "SECONDS" :S=(-V4+SOR(VEV42¢AG) )/G 

250 VeVtGeS: LEL+$ 

260 W=3600#V: PRINT "ON HOON AT“;LZ"SECONDS - IHPACT VELOCITY’ ss "HPH" 
270 IF W<=t.2 THEN PRINT "PERFECT LANDING!": GOTO440 

280 TF W<s10 THEN PRINT “GOOD LANDING (COULD BE BETTER}":GOTO440 
282 TF Ws0THENTOO 

284 PRINT “CRAFT DAMAGE... YOURE STRANDED HERE UNTIL A RESCUE" 
286 PRINT "PARTY ARRIVES. HOPE YOU HAVE ENOUGH OXYGEN!" 

288 GOTO 440 

300 PRINT “SORRY THERE WERE NO SURVIVORS. YOU BLEW IT!" 

310 PRINT "IN FACT, YOU BLASTED A NEW LUNAR CRATER"iUe.2775"FEET EEPI" 
320 GOTO 440 

S30 L=L+S: T=T-S: HEN-S#Ks Ast: Vad: RETURN 

440 IF S<5E-03 THEN 260 

350 DSV+SOR (VEN +2Ae (G-24K/M) )3S=24A/0 

460 GOSUBA20: GOSUB 330: GOTO 340 

370 WECIWM#G/(Z#K))/22 SEMEN / (ZEKE CUESOR (HEUEY/Z) 3) 4.05 :G0SUB 420 
380 IF I<=0 THEN 340 

390 GOSUB 330: IF J>0 THEN 160 

400 IF V>0 THEN 370 

410 GOTO 160 

420 QS#K/Ms J2v+GeStZ (-O-Q#0/2-0°3/3-0°4/4-0°5/5) 

AIO T=A-G#S4G/2-VES4Z4S4 (O/ 240° 2/6405 3/1240 °4/2040°5/90) RETURN 
440 PRINT:PRINTSPRINT:PRINT “TRY AGAIN??": GOTO 70 


SET BURN RATE OF RETRO ROCKETS TO ANY VALUE BETWEEN 
Q (FREE FALL) AND 200 (HAXIWHUM BURN) POUNDS PER SECOND. 
SET WEU BURN RATE EVERY 10 SECONDS. 


CAPSULE WEIGHT 32,500 LBS; FUEL WEIGHT 16,500 Las. 
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This is the most comprehensive of 
the three versions and permits you to 
control the time interval of firing, the 
thrust, and the attitude angle. It also 
allows you to work in the metric or 
English system of measurement. The 
instructions in the program dialog are 
very complete, so you shouldn’t have 
any trouble. 

LEM CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 
LUNAR LANDING SIMULATION 


HAVE YOU FLOWN AN APOLLO/LEM MISSION BEFORE (YES OR NO)? NO 


WHICH SYSTEM OF HEASUREMENT DO YOU PREFER? 
(EHETRIC O=ENGLISH 
ENTER THE APPROPRIATE NUMBER? 1 


YOU ARE ON A LUNAR LANDING MISSION. AS THE PILOT OF 
THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO 
GIVE CERTAIN COMMANDS TO THE HODULE NAVIGATION SYSTEM. 
THE ON-BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT 
OF INFORMATION NEEDED TQ NAVIGATE THE SHIP. 


THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOUS. 
+ OR -140 DEGREES 1S DIRECTLY AWAY FROK THE HOON 

-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT 
+90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT 
QO (ZERO) DEGREES IS DIRECTLY TOWARD THE NOON 


180,180 


“90 < ~t- > 90 
t 
0 
<< DIRECTION OF GRBIT << 


SURFACE OF HOON 
ALL ANGLES BETWEEN -100 AND 180 DEGREES ARE ACCEPTED. 
1 FUEL UNIT = 1 SEC. AT MAX THRUST 
ARY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL 
FOR AN ATTITUDE CHANGE. 


AVAILABLE ENGINE POWER: 0 (ZERO) AND ANY VALUE BETWEEN 
10 AND 100 PERCENT. 


NEGATIVE THRUST OR TIWE IS PROHIBITED. 


INPUT: TIME INTERVAL IN SECONDS ---~-~~- (1) 
PERCENTAGE OF THRUST ---~------ (P) 
ATTITUDE ANGLE IN DEGREES ~~--~- (A) 


FOR EXAMPLE: 
T,P,A? 10,65,-60 
TO ABORT THE MISSION AT ANY TIME, ENTER 0,0,0 


OUTPUT: TOTAL TIHE IN ELAPSED SECONDS 
HEIGHT IN FEET 
DISTANCE FROM LANDING SITE IN FEET 
VERTICAL VELOCITY IN FEET/SECOND 
HORIZONTAL VELOCITY IN FEET/SECOND 
FUEL UNITS REMAINING 


) 111168 -S.87625E+06 0 1615.6 
T,P,A? 500,0,0 

500 106292 “S.11633E+06 ~19.2028 1619.92 
T,P,AT 100,0,0 

600 104194 “4. FOES2EF06 - 22.7246 1621.78 
T)P,AT 50,90,-90 

650 102916 ~A.BIOZIEHOS -30.3757 1484.58 
T,P,A? 100,23,0 

750 101907 A4,75003E+06 10,3519 1485.42 
T,P,A? 50,90,-90 

800 101993 ~4.6O314Et06 -8.76788 1341.57 
T,P,AT 100,40,-90 . 

900 98339 .8 -A,5622E+06 = -67,3979 1213.07 
TPLAT 50,10,0 

950 9511.6 © -4,50472E+06 -85.7323 1215.43 
T,P,A? 50,100,0 

1000 =-3320.2 «4. 44704E406 38. 8848 1216.44 
T,P,AT 50, 100,-90 

1050 94322.6  -4.3933E+06 = -.608409 1041.58 
T,P,AT 50, 100,-90 

1100-93090 “A, 3A79AE+06 50.2899 862.287 
T,P,A? 50,100,-90 

1150 89944.7 4, ULISEFO6 -108.811 477.922 
T,P,AT 100,100,-90 

1250. 71572.2 -4,.26382E+06 -246.665 = 270396 


750 
750 
750 
705 
682.001 
637.001 
597.002 
592.002 
542.002 
492.002 
442,002 
392.002 


292.002 
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T,P,A¥ 50, 100,6 


1300 62205.7 “A, 2A9B1E408 -126.903 271.928 
T,P,A? 100,50,0 

1400 52014.2 “4.22147E406 -75.89744 293.614 
T,P,A? 100,40,-90 

1500 36711.6 ~4,20102E+06 -231.305 116.821 
T,P,a? 50,50,90 

1550 23159.8 “4.19258E406 -310.782 232.752 
T,P,A? 50,50,90 

1400 5635.9 4, 178246406 -390.108 352.728 
T,P,AP 10,0,0 

1610 1655.62 “4 NTA71E406  ~405.96 353.546 
T,P,At 10,100,0 

1614.5 -142.239 -4.17312E406 -393.08 353.917 


CRASH JITETENEEEENetet 
YOUR IMPACT CREATED A CRATER 142.239 WETERS DEEP. 
AT CONTACT YOU WERE TRAVELING 1904.15 KILOMETERS/HR 


DO YOU WANT TO TRY IT AGAIN (YES/NO)? 

7 NO THANKS! 

DO YOU WANT TO TRY 17 AGAIN (YES/NO)? 

7 NO 

TOO BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED 
ASTRONAUTS. 


2 PRINT TAB(34); "LEK" 

4 PRINT TAB(IS); "CREATIVE COMPUTING WORRISTOUN, NEW JERSEY“ 
7 REW ROCKT2 IS AN INTERACTIVE GAME THAT SIMULATES A LUNAR 
8 REM LANDING IS SIMILAR TO THAT OF THE APOLLO PROGRAK. 
9 REM THERE JS ABSOLUTELY NO CHANCE INVOLVED 
10 Z="a0" 

15 Bist 

20 M1795 

25 Ft#5.25 

30 N27.5 

35 RO=926 

40 VOFT.29 

45 T=0 

50 HO#60 

55 R=RO+HO 

60 A2-3,425 

65 Rizo 

70 Al28.B43461E-04 

75 R3=0 

80 Ad=0 

85 4137.45 

90 KOK 

93 B=750 

100 Ti=d 

105 Fed 

110 P20 

115 Net 

120 H2=0 

125 $20 

130 CxO 

135 IF Z$="YES" THEN 1150 

140 PRINT 

145 PRINT “LUNAR LANDING SIMULATION" 

150 PRINT 

155 PRINT “HAVE YOU FLOWN AN APOLLO/LEM MISSION BEFORE": 
160 PRINT " (YES OR NO)"; 

165 INPUT 09 

170 IF Q9="YES* THEN 190 

175 IF G¢="NO" THEN 205 

180 PRINT “JUST ANSWER THE QUESTION, PLEASE, °; 
185 GOTO 160 

190 PRINT 

195 PRINT “INPUT HEASURENENT OPTION NUMBER”; 
200 G0TO 225 

205 PRINT 

210 PRINT “WHICH SYSTEM OF MEASUREMENT DO YOU PREFER?" 
215 PRINT “ t=HETRIC O=ENGLISH" 

220 PRINT “ENTER THE APPROPRIATE NUMBER"; 
225 INPUT K 

230 PRINT 

235 IF K=0 THEN 280 

240 IF Ket THEN 250 

245 GOTO 220 

230 72£1852.8 

255 H9="HETERS” 

260 0323.6 

265 N$=" KILOMETERS® 

270 85=1000 

273 8070 305 

280 226080 

285 N$2"FEET* 

270 G3=.592 


242.002 
192.002 
152.002 
127.002 
102.002 
102.002 


97,5017 


295 NS="N MILES" 755 A2=(3#AI-A4)/24.00564F 1 4F 6S/ (MR) 


300 65=Z 760 X=RIeT1+.5eR2eT16T! 

305 IF BI=3 THEN 670 765 RaRHX 

310 IF Q$="YES" THEN 485 770 HO=HO+X 

3i5 PRINT 775 RISRVERI6T1 

320 PRINT " YOU ARE ON A LUNAR LANDING MISSION. A$ THE PILOT OF" 700 ASAtALETI+.SeAzsTi eT 

325 PRINT “THE LUMAR EXCURSION MODULE, YOU WILL BE EXPECTED To" 785 AL=AT+AQ#TI 

330 PRINT “GIVE CERTAIN COMMANDS TO THE HODULE NAVIGATION SYSTEH." 790 HeH-.5eH2 

335 PRINT “THE ON-BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT" 795 TsT#TI 

340 PRINT “OF INFORMATION NEEDED 10 NAVIGATE THE SHIP." 800 IF HO<3.287828E~-04 THEN 810 

345 PRINT 905 NEXT I 

350 PRINT 810 H=HOeZ 

355 PRINT "THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS." 815 HisRtsZ 

360 PRINT “+ OR -180 DEGREES I§ DIRECTLY AWAY FROM THE MOON” 820 D=ROsAtZ 

365 PRINT “-90 DEGREES 19 ON A TANGENT IN THE DIRECTION OF ORBIT# 825 Dl=R¥Al¥2 

370 PRINT "+90 DEGREES 18 ON A TANGENT FROM THE DIRECTION OF ORBIT” 830 T2=KteB/KO 

475 PRINT “0 (ZERO) DEGREES IS DIRECTLY TOWARD THE HOON" 835 PRINT “ "51; TAB(10) 3H; TAB(23) ;D; 

380 PRINT 840 PRINT TAB(37);Ht;TABCA9) D1 TAB (60) 312 

385 PRINT TAB(30);"-180, 180" 845 IF H0¢3.287028E-04 THEN 880 

390 PRINT TAB(34)3"*" 850 IF RO*AD164.4736 THEN 1050 

395 PRINT TAB(27)3"-90 < -4#- > 90" 855 IF H1>0 THEN 590 

400 PRINT TAB(34)3"1" 860 T1=20 

405 PRINT TAB(34)3*0" 465 F=0 

410 PRINT TABC23)3"<< DIRECTION OF ORBIT <<" 870 P=0 

415 PRINT 875 GOTO 420 

420 PRINT TAB(27);“SURFACE OF HOON” 880 IF R1<-8,21957E-04 THEN 1020 

425 PRINT 885 IF ABS(REAT)>4.991742E-04 THEN 1020 

430 PRINT 890 IF HO<-3,287828E-04 THEN 1020 

435 PRINT "ALL ANGLES BETWEEN -180 AND 180 DEGREES ARE ACCEPTED." 895 IF ABS(D)>10eZ THEN 1045 

440 PRINT 900 GOTO 995 

445 PRINT "f FUEL UNIT = 1 SEC. AT MAX THRUST" 905 PRINT 

450 PRINT “ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL” 910 PRINT “THIS SPACECRAFT IS NOT ABLE TQ VIOLATE THE SPACE-"; 
ASS PRINT "FOR AN ATTITUDE CHANGE.” 915 PRINT "TIME CONTINUUH.” 

460 PRINT "AVAILABLE ENGINE POWER: 0 (ZERO) AND ANY VALUE BETUEEN* 920 GOTO 575 

465 PRINT “tO AND 100 PERCENT." 925 PRINT 

470 PRINT 930 PRINT “IF YOU WANT TO SPIN AROUND, GO QUTSIDE THE NODULE" 
475 PRINT“NEGATIVE THRUST OR TINE IS PROHIBITED." 935 PRINT "FOR AN E.V.A." 

480 PRINT 940 GOTO 575 

485 PRIAT 945 PRINT 

490 PRINT “INPUT: TIME INTERVAL IN SECONDS -----~ (T)* 950 PRINT "IMPOSSIBLE THRUST VALUE "; 

495 PRINT © PERCENTAGE OF THRUST -~-------~ (P)* 955 IF F<O THEN 985 

500 PRINT ° ATTITUDE ANGLE IN DEGREES ----~ (aye 960 IF F-.05<.05 THEN 975 

505 PRINT 965 PRINT "TOO LARGE" 

St0 IF Q$="YES" THEN 535 970 GOTO 575 

StS PRINT “FOR EXAHPLE:" 975 PRINT "TOO SMALL” 

520 PRINT “1,P,AT 10,65,~60" . 980 GOTO 575 

525 PRINT “TO ABORT THE MISSION AT ANY TINE, ENTER 0,0,0" 985 PRINT "NEGATIVE" 

530 PRINT 990 GOTO 575 

S35 PRINT “OUTPUT: TOTAL TIME IN ELAPSED SECONDS” 995 PRINT 

540 PRINT “ HEIGHT IN "Hs 1000 PRINT "TRANQUILITY BASE HERE ~~ THE EAGLE HAS LANDED" 
545 PRINT “ DISTANCE FROM LANDING SITE IN “sMs 1005 PRINT “CONGRATULATIONS -- THERE WAS NO SPACECRAFT DAKAGE” 
550 PRINT " VERTICAL VELOCITY IN “3N9$"/SECOND" 1010 PRINT "YOU HAY NOW PROCEED WITH SURFACE EXPLORATION." 
555 PRINT “ HORIZONTAL VELOCITY IN "3H$!"/SECOND" 1015 GOTO 1100 

560 PRINT " FUEL UNITS REHAINING® 1020 PRINT 

565 PRINT 1025 PRINT “CRASH FICHHifseerigeeee 

570 GOTO 670 1030 PRINT “YOUR IMPACT CREATED A CRATER"SABS(H)3H$;" DEEP." 
575 PRINT 1035 X1=SOR(D1eDI+HE HI) 463 

580 PRINT "T,P,A" 1040 PRINT “AT CONTACT YOU WERE TRAVELING" 5X1:N$3"/HR™ 
585 INPUT T1,F,P 1045 GOTO 1100 

590 F=F/100 1050 PRINT 

595 1F T1<0 THEN 905 1055 PRINT "YOU HAVE BEEN LOST IN SPACE WITH NO HOPE OF RECOVERY." 
600 IF T1=0 THEN 1090 4060 GOTO 1100 

405 IF ABS(F-.05)>1 THEN 945 1065 PRINT “YOU ARE DOWN SAFELY ~ * 

610 IF ABS(F-.05)<.05 THEN 945 1075 PRINT 

615 IF ABS{P)>180 THEN 925 1080 PRINT “BUT MISSED THE LANDING SITE BY";aBS(D/G5);N$ 
620 N=20 1085 GOTO 1100 

625 IF T1<400 THEN 635 1090 PRINT 

630 N=T1/20 1095 PRINT "MISSION ABENDED" 

635 T1=T1/N 1100 PRINT 

640 P=P#3.14159/190 1105 PRINT “DO YOU WANT TO TRY IT AGAIN (YES/NO)7" 

645 S=SIN(P) 1110 INPUT Z$ 

650 CeCOS(P) Vi15 IF Z$="VYES" THEN 20 

655 H2=H0eT1eF/B 1120 IF Z$="NO" THEN 1130 

660 R3=~.5eRO#((VO/R)*2)4R4A1 901 W125 GOTO 1105 

565 AJ=-2eR1FAT/R 1140 PRINT 

670 FOR I=1 10.8 1135 PRINT "100 BAD, THE SPACE PROGRAM HATES T0 LOSE EXPERIENCED" 
675 IF 41=0 THEN 715 1140 PRINT “ASTRONAUTS.” 

680 MI=HI-H2 1145 Stop 

685 IF Ht>0 THEN 725 1150 PRINT 

690 FeFe(t+Hl/H2) 1155 PRINT “OK, DO YOU WANT THE COMPLETE INSTRUCTIONS OR THE INPUT ~-" 
695 H2=H14H2 1160 PRINT “OUTPUT STATEMENTS?" 

700 PRINT "YOU ARE OUT OF FUEL." . 1165 PRINT "1=COHPLETE INSTRUCTIONS" 

705 Ni=0 1170 PRINT “2=INPUT-OUTPUT STATEMENTS” 

710 GOTO 725 1175 PRINT "J=NEITHER® 

715 Fe0 1180 INPUT Bt 

720 42=0 1185 ag="NO" 

725 HeH-.59K2 1190 IF BI=1 THEN 205 

730 R4=RI 1195 O8="YES" 

735 RI=-.5eRO*( (UO/R)2)4RAAT FAL 1200 IF Bl=2 THEN 190 

240 R2=(3#RI-RA)/24.005269F 14F 40 /N 1205 IF Bi=3 THEN 190 

745 AdzAI 1210 GOTO 11465 

750 AS=-2eRIFAI/R 1215 END 
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In this version, you start 500 feet 
above the lunar surface and control the 
burn rate in 1-second bursts. Each unit 
of fuel slows your descent by 1 ft/sec. 
The maximum thrust of your engine is 
30 ft/sec/sec. 


ROCKET 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


LUNAR LANDING SIMULATION 


DO YOU WANT INSTRUCTIONS (YES OR NO)? YES 


YOU ARE LANDING ON THE NOON AND HAVE TAKEN OVER MANUAL 
CONTROL 500 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A 
DOWNWARD VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAIN, 


HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE: 

(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING 

FUEL WILL BE REPORTED. 

AFTER THE REPORT, A “T° WILL BE TYPED. ENTER THE 

NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE 

NEXT SECOND. EACH UNIT OF FUEL WILL SLOW YOUR DESCENT 

BY 1 FT/SEC. 

THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR 

30 UNITS OF FUEL PER SECOND. 

WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE 

WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A 

REPORT OF YOUR LANDING SPEED AND REMAINING FUEL. 

C3) IF YOU RUX OUT OF FUEL, THE “?’ WILL NO LONGER APPEAR, 
BUT YOUR SECOND~BY-SECOND REPORT WILL CONTINUE UNTIL 
YOU CONTACT THE LUNAR SURFACE. 


Q 


pins 


i 


— 


(4 


pu 


BEGINNING LANDING PROCEDURE..... 


Good LUCKITT 


SEC FEET SPEED FUEL PLOT OF DISTANCE 


o 500 50 120 I 
70 

1 447.5 35 120 T 
10 

2 390 60 120 I 
70 

3 927.5 45 120 I + 
10 

4 260 70 120 I * 
710 

$192.5 «65 110 1 . 
15 

6 127.5 45 105 I * 
725 

7 72.5 45 80 I * 
725 

8 97.5 25 55 | 
12 

9 22.5 3 30 I+ 
1? 

10 18.5 J 23 Is 
1? 

1b 14.5 1 16 Is 
14 

12015 2 12 Is 
73 

13 42 4 q ic) 
14 

1407 é 4 Ie 
76 
eee OUT OF FUELsaes 

15 1.5 bs] 0 Is 


wean CONTACT eves 
TOUCHDOWN AT 15.2649 SECONDS. 
LANDING VELOCITY = 6.32456 FEET/SEC. 
0 UNITS OF FUEL REMAINING. 
a#eeee SORRY, BUT YOU BLEW ITIHII 
APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN. 
ANOTHER MISSION? NO THANKS! 


CONTROL GUT. 


10 PRINT TAB(33); "ROCKET" 

20 PRINT TAB(15);“CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINTIPRIATPRINT 

70 PRINT “LUNAR LANDING SIMULATION™ 

80 PRINT S=---- -n----~ --------=- “2 PRINT 


100 
110 
160 
200 
210 
220 
225 
230 
240 
250 
260 
270 
280 
290 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
420 
* 430 
450 
43S 
470 
300 
510 
520 
530 
540 
360 
570 
580 
570 
600 
410 
6n5 
620 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
760 
770 
780 
790 
800 
805 
810 
820 
830 
840 
850 
860 
870 
999 
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INPUT "DO YOU WANT INSTRUCTIONS (YES OR NO)"SAS 

IF A$="WO" THEN 390 

PRINT 

PRINT “YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER KANUAL" 
PRINT “CONTROL 500 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A" 
PRINT "DOUNUARD VELOCITY OF SO FI/SEC. 120 UNITS OF FUEL REMAIN." 
PRINT 

PRINT “HERE ARE THE RULES THAT SOVERN YOUR SPACE VEHICLE:" 

PRINT “(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING” 
PRINT " FUEL WILL BE REPORTED." 

PRINT "{2) AFTER THE REPORT, A “?° WILL BE TYPED. ENTER THE" 
PRINT " NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE" 


PRINT * NEXT SECOND. EACH UNIT OF FUEL WELL SLOW YOUR DESCENT" 
PRINT * BY 1 FT/SEC." 
PRINT "(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR” 


PRINT * 30 UNITS OF FUEL PER SECOND." 

PRINT “(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE" 
PRINT * WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A* 
PRINT ° REPORT OF YOUR LANDING SPEED AND REMAINING FUEL.“ 


PRINT “(5) IF YOU RUN OUT OF FUEL, THE “?” WILL NO LONGER APPEAR," 


PRINT BUT YOUR SECOND-BY-SECOND REPORT WILL CONTINUE UNTIL” 
PRINT “ YOU CONTACT THE LUNAR SURFACE.": PRINT 

PRINT "BEGINNING LANDING PROCEDURE....."s PRINT 

PRINT "B OOD LUCKIA I 

PRINT:PRINT 

PRINT “SEC FEET SPEED FUEL PLOT OF DISTANCE" 

PRINT 

T=02H#5003¥2903F #120 


PRINT T3TAB(A) 3H; TAB(12)3V3TAB(20) Fs TAB(29) 3" 1"s TAB(H/ 12429) "8" 
INPUT B 

IF BCO THEN 650 

IF B>30 THER B=30 

IF BOF THEN BaF 

V1EU-B45 

FsF-B 

HeH~.5e(V+V4) 

IF H<=0 THEN 670 

TaT#H 

ev! 

IF F>Q THEN 490 

IF B=0 THEN 440 

PRINT “eee QUT OF FUELSees* 

PRINT 1} TAB(A) 3H} TAB(12) $03 TAB(20) 3F STAB (297) 2" sTABLH/ 12429) "8" 
Bx0 

6OTO 540 

PRINT “sees CONTACT teee* 

HeHt. Se(Vevt) 

IF B25 THEN 720 

D=(-V+SOR(VeV+H#(10-29B) ))/(5-B) 

8010 730 

D=H/V 

V1=V4(5-B) ep 

PRINT “TQUCHDOWN AT"3T+D; “SECONDS. 

PRINT “LANDING VELOCITY ="sU1;*FEET/SEC." 

PRINT F;“UNITS OF FUEL REWAINING.* 

IF VIC>0 THEN 810 

PRINT “CONGRATULATIONS! A PERFECT LANDING!” 
PRINT “YOUR LICENSE WILL BE RENEVED.......LATER" 
IF ABS(VI)<2 THEN 840 

PRINT “eeses SORRY, BUT YOU BLEW ITH!“ 

PRINT “APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN." 
PRINT: PRINT 3 PRINT 

INPUT “ANOTHER HISSION“sA$ 

IF ASe"YES" THEN 370 

PRINT: PRINT “CONTROL OUT.": PRINT 

END 


Master Mind 


In the March-April 1976 issue of Crea- 
tive we published a computerized version 
of Master Mind, a logic game. Master Mind 
is played by two people—one is called the 
code-maker; the other, the code-breaker. 
At the beginning of the game the code- 
maker forms a code, or combination of 
colored pegs. He hides these from the 
code-breaker. The code-breaker then at- 
tempts to deduce the code, by placing his 
own guesses, one at a time, on the board. 
After he makes a guess (by placing a com- 
bination of colored pegs on the board) the 
code-maker then gives the code-breaker 
clues to indicate how close the guess was 
to the code. For every peg in the guess 
that’s the right color and in the right posi- 
tion, the code-breaker gets a black peg. 
For every peg in the guess that’s the right 
color but not in the right position, the 
code-breaker gets a white peg. Note that 
these black and white pegs do not indicate 
which pegs in the guess are correct, but 
merely that they exist. For example, if the 
code was: 

Yellow Red Red Green 
and my guess was 

Red Red Yellow Black 
| would receive two white pegs and one 
black peg for the guess. | wouldn't know 
(except by comparing previous guesses) 
which one of the pegs in my guess was the 
right color in the right position. 

Many people have written computer 
programs to play Master Mind in the pass- 
ive role, i.e., the computer is the code- 
maker and the human is the code-breaker. 
This is relatively trivial; the challenge is 
writing a program that can also play ac- 
tively as a code-breaker. 

Actually, the task of getting the com- 
puter to deduce the correct combination is 
not at all difficult. Imagine, for instance, 
that you made a list of all the possible 
codes. To begin, you select a guess from 
your list at random. Then, as you receive 
clues, you cross off from the list those 
combinations which you know are impos- 
sible. For example if your guess is Red 
Red Green Green and you receive no 
pegs, then you know that any combination 
containing either a red or a green peg is 
impossible and may be crossed off the list. 


The process is continued until the correct 
solution is reached or there are no more 
combinations left on the list (in which case 
you know that the code-maker made a 
mistake in giving you the clues some- 
where). 

Note that in this particular implementa- 
tion, we never actually create a list of the 
combinations, but merely keep track of 
which ones (in sequential order) may be 
correct. Using this system, we can easily 
say that the 523rd combination may be 
correct, but to actually produce the 523rd 
combination we have to count all the way 
from the first combination (or the previous 
one, if it was lower than 523). Actually, this 
problem could be simplified to a conver- 
sion from base 10 to base (number-of- 
colors) and then adjusting the values used 
in the MID$ function so as not to take a 
zeroth character from a string if you want 
to experiment. We did try a version that 
kept an actual list of all possible combina- 
tions (as a string array), which was sig- 
nificantly faster than this version, but 
which ate tremendous amounts of mem- 
ory. 

At the beginning of this game, you input 
the number of colors and number of posi- 
tions you wish to use (which will directly af- 
fect the number of combinations) and the 
number of rounds you wish to play. While 
you are playing as the code-breaker, you 
may type in BOARD at any time to get a list 
of your previous guesses and clues, and 
QUIT to end the game. Note that this ver- 
sion uses string arrays, but this is merely 
for convenience and can easily be con- 
verted for a BASIC that has no string ar- 
rays as long as it has a MID$ function. This 
is because the string arrays are one-di- 
mensional, never exceed a length greater 
than the number of positions and the ele- 
ments never contain more than one 
character. 
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MASTER MIND 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


NUMBER OF COLORS? 4 
NUMBER OF POSITIONS? 4 
NUMBER OF ROUNDS? 1 

TOTAL POSSIBILITIES = 254 


COLOR LETTER 


ROUND NUNBER 1 ---~ 


GUESS MY COMBINATION. 
MOVE # 1 «GUESS 7 BUG 
YOU HAVE 2 BLACKS AND © WHITES. 
MOVE H 2 GUESS ? WURR 
YOU HAVE 2 BLACKS AND 1 
MOVE @ 3 GUESS 7 uuRG 
YOU HAVE 3 BLACKS AND O WHITES. 
MOVE # 4 GUESS 7 WUBR 
YOU HAVE 1° BLACKS AND 1 
MOVE # 5 GUESS 7? RURG 
YOU GUESSED IT IN 5 MOVES! 
SCORE: 

COMPUTER 0 

HUHAN 5 


WHITES. 


WHITES. 


NOW I GUESS. THINK OF A COMBINATION. 
HIT RETURN WHEN READY 7 

MY GUESS IS: RRGR BLACKS, WHITES 7 0 
NY GUESS IS: GBBB BLACKS, WHITES 7 3 
MY GUESS IS: GUBB BLACKS, WHITES 7 3 
NY GUESS IS: GGBB BLACKS, WHITES 7 4 
1 GOT IT IN 4 MOVES! 

SCORE: 


COMPUTER 4 
HUMAN 5 
GAME OVER 
FINAL SCORE: 
COMPUTER 4 
HUHAN 5 


Master Mind® is a game manufactured by 
Invicta Plastics, Ltd. 


MASTER MIND 300 PRINT “GUESS KY COMBINATION," 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 310 REK GET A COMBINATION 
320 ASINT(PERND(1)41) 
330 GOSUB 3000 
340 FOR X=1 10 4 


NUMBER OF COLORS? 5 350 GOSUB 3500 

NUMBER OF POSITIONS? 4 360 NEXT X 

NUMBER OF ROUNDS? 1 370 FOR M=1 TO 10 

TOTAL POSSIBILITIES = 625 380 PRINT "HOVE & “SM3" GUESS “ssINPUT X$ 


390 LF X$="BOARD" THEN 2000 

400 IF X$="QUIT" THEN 2500 
coLor LETTER 410 IF LEN(X$)<>P9 THEN PRINT “BAD NUMBER OF POSITIONS.":G0TO 380 
suass assess 420 REK UNPACK X$ INTO G$(1-P9) 


430 FOR X=1 TO PP 
Aire ; 440 FOR Y=1 TO C9 
RED R 450 IF HID$(X$,X,1)=HIDS(L$,Y,1) THEN 480 
GREEN 3 460 NEXT ¥ 
ORANGE 0 470 PRINT “'": MEDS(XS,X,1)3 “ IS UNRECOGNIZED.":GOTO 380 
480 GS(X)SMIDS(X$,X,1) 
A490 NEXT X 
a 500 REH NOW WE CONVERT Q(1-P9) INTO AS(T-P9) CACTUAL GUESS 
ROUND NUNBER 1 otd ROSUB 40q0 
GUESS HY COMBINATION. 520 REM AND GET NUMBER OF BLACKS AND WHITES 
HOVE # 1 GUESS ? BUBU 530 GOSUB 4500 
YOU HAVE 1 BLACKS AND 2 WHITES. S40 IF B=P9 THEN 630 
Hove # 2 GUESS ? BBUO 550 REM TELL HUMAN RESULTS 
YOU HAVE 3 BLACKS AND O WHITES. 560 PRINT “YOU HAVE "3Bs" BLACKS AND "SU" WHITES." 
HOVE # 3 GUESS ? BBUG 570 REW SAVE ALL THIS STUFF FOR BOARD PRINTOUT LATER 
YOU HAVE 3 BLACKS AND 0 WHITES. a ee 
HOVE # 4 GUESS ? BBUR ae cm oye 
YOU HAVE 3 BLACKS AND 0 UNITES. 410 NEXT A 
HOVE # 5 GUESS 7 BBB . ; . 
YOU GUESSED 17 IN. 5 MOVES! 620 PRINT “YOU RAN OUT OF MOVES! THAT’S ALL YOU GET!*:G0TO 440 
SCORE: 622 GOSUB 4000 
COMPUTER 0 623 PRINT "THE ACTUAL COMBINATION WAS: °; 
HUMAN 5 624 FOR X=t TO P9 
625 PRINT AS(X)3 
NOW 1 GUESS. THINK OF A COMBINATION. 26 NEXT X 
HIT RETURN WHEN READY ? $27 PRINT vemes ; 
HY GUESS IS: BRRO BLACKS, WHITES 7 1,1 630 PRINT “YOU GUESSED IT IN “;H;" nOVES! 
HY GUESS IS: RRVG BLACKS, WHITES 7 1,1 640 HeHtH 
HY GUESS IS: GBRG BLACKS, WHITES ? 0,2 450 GOSUB 5000 
MY GUESS IS: ROGO BLACKS, WHITES ? 4,0 660 REM 
1 GOT IT IN. 4 MOVES! 470 REN NOU COMPUTER GUESSES 
SCORE: 80 REN 
COMPUTER 4 690 FOR X=1 TO P 
HUKAN 5 700 1(x)=t 
710 NEXT X 
GANE OVER 720 PRINT “HOU I GUESS. THINK OF A COMBINATION." 
FINAL SCORE: 730 INPUT “HIT RETURN WHEN READY "Xs 
COMPUTER 4 740 FOR H=1 TO 10 
AUMAN 5 750 GOSUB 3000 
760 REH FIND A GUESS 
770 G=INT(PSRND(1)41) 
780 IF 1(6)=1 THEN 890 
790 FOR X=6 TO P 
800 IF I(X)=1 THEN 880 
810 NEXT X 
820 FOR X=1 TO G 
2 PRINT TAB(30);"KASTER HIND" ato hext 1 THEN 60 
; Pa ear CREATIVE COMPUTING HORRISTOWN, NEW JERSEY 850 PRINT “YOU DUMMY, YOU HAVE GIVEN KE INCONSISTENT INFORMATION." 
a PRINT : aso PRINT “LET’S TRY AGAIN, AND THIS TIME, BE HORE CAREFUL." 
20 REN MASTERMIND II Bao pox, oe 
0 ai CRE IVE. ROMPUTING 890 RE NOW WE CONVERT GUESS 46 INTO G$ 
900 FOR X=1 10 G 
50 REM PO BOX 789-M MORRISTOWN NEU JERSEY 07960 910 GOSUB 3500 
. Re 920 NEXT X 
? 930 GOSUB 6000 
80 INPUT "NUMBER OF COLORS"s¢9 940 PRINT "HY BUESS 1S: "3 
90 IF C9>8 THEN PRINT “NO MORE THAN 8, PLEASE! ":GOTO 80 950 FOR X=4 TO P9 
100 INPUT “NUMBER OF POSITIONS" ;P9 960 PRINT H$(X)3 
110 INPUT "NUMBER OF ROUNDS" SR? 970 NEXT X 
120 P=C9*P9 9790 INPUT " BLACKS, WHITES "3B1,ut 
130 PRINT "TOTAL POSSIBILITIES ="sP 990 IF BI=P9 THEN 1120 
140 H=0:C20 1000 GOSUB 3000 
150 DIM Q(P9),S(10,2) ,S8(10),AS(P9) ,GS(P9), E(P) ,HS(P9D 1010 FOR X=1 TOP 
160 L$="BURGOYPT" 1020 60SUB 3500 
179 PRINT 1030 IF I(X)=0 THEN 1070 
1035 G60SUB 6500 
190 PRINT "COLOR LETTER" 1040 S0SUB 4000 
200 PRINT “==s== sesesa" 1050 GOSUB 4500 
210 FOR X21 TO C9 1060 IF BI<>B OR WI<)W THEN 1(X)20 
220 READ X$ 1070 NEXT X 
230 PRINT X$STAB(13) SMIDS(LS,X, 1) 1080 NEXT ¥ 
240 NEXT X 1070 PRINT “I USED UP ALL MY NOVES!" 
250 PRINT 1100 PRINT “I GUESS HY CPU IS JUST HAVING AN OFF DAY.” 
260 FOR R=1 TO R9 1110 GOTO 1130 
270 PRINT 1120 PRINT "I GOT IT IN “SH3" HOVES!” 
280 PRINT “ROUND NUMBER ";Rp"----" 1130 C=C4H 
290 PRINT 1140 GOSUB S000 
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1190 
1160 
1170 
1180 
1190 
2000 
2010 
2020 
2025 
2030 
2040 
2050 
2060 
2070 
2075 
2080 
2500 
2510 
2520 
2530 
2535 
2540 
2550 
2560 
2565 
2570 
2580 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3500 
3510 
3520 
3522 
3524 
3526 
3527 
3528 
3529 
3530 
3540 
3550 
3560 
3570 
3580 
4000 
4010 
4020 
4030 
4040 


NEXT R 

PRINT "GAME OVER" 

PRINT “FINAL SCORE:" 

GOSUB 5040 

STOP 

REM 

REW BOARD PRINTOUT ROUTINE 

REM 

PRINT 

PRINT "BOARD" 

PRINT “MOVE GUESS BLACK UHITE” 
FOR Z=1 TO N-1 

PRINT Z;TABC?) jS9(Z) 5 TAB(25)35(Z, 1) sTAB(35) 25(Z,2) 
NEXT Z 

PRINT 

GOTO 380 

REM 

REH QUIT ROUTINE 

REM 

PRINT "QUITTER! MY COMBINATION UAS: “3 
GOSUB 4000 

FOR X=1 TO PY 

PRINT AS(X)5 

NEXT X 

PRINT 

PRINT “GOOD BYE" 

sToP 

REN 

REH INITIALIZE Q01-P9) Ta ZEROS 
REX 

FOR S=1 TO PY 

a(S)=0 

NEXT § 

RETURN 

REN 

REM INCREMENT @(1-P9) 

REW 

IF 801290 THEN 3530 


REM IF ZERO, THIS IS OUR FIRST INCREWENT: MAKE ALL ONES 


FOR S=1 TO P? 

Q(S)=1 

WEXT § 

RETURN 

G=1 

(0)=0(0)+1 

IF O(0)<=C% THEN RETURN 


O(Q>=1 

O=0+1 

GOTO 3540 

REW 

REM CONVERT Q(1-P7) TO ASCI-P9) 
REM 

FOR S=1 TO P? 

AS(S)SMIDS(LS,@(5),1) 


4050 NEXT S 
4060 RETURN 


4500 REH 

4510 REH GET NUMBER OF BLACKS (B) AND WHITES (W) 
4520 REH HASHES G$ AND A$ IN THE PROCESS 

4530 REM 


4540 B=OsW=0:F=0 

4550 FOR S=1 TO P9 

4360 TF G$(S)<>AS(S) THEN 4620 
4970 B=B+{ 

4580 G$(S)=CHRS(F) 

4590 AS(S)=CHRS(FH+1) 

4600 F=F+2 

4610 GOTO 4460 

4620 FOR T=1 TO P9 

4630 IF G$(S)<>AS(T) THEN 4450 
4640 IF GS(T)=A8(T) THEN 4650 


4645 WEUtTSAS(TI=CHRS(F) 2G$(S)=CHRS(FHI)SF=F+2sG0TO 4460 


4650 NEXT T 
4660 NEXT § 
4670 RETURN 
5000 RE 
5010 REH 
5020 REN 
5030 PRINT “SCORE:" 

5040 PRINT " COMPUTER "5C 
5050 PRINT © HUNAN oat 
5060 PRINT 
3070 RETURN 
5500 REN 
5510 REN 
9520 REN 
5530 FOR S=1 TO P9 

5540 G9(S)=MIDS(L$,0(5),1) 
5550 NEXT § 
5560 RETURN 
6000 REK 
6010 REX 
6020 REM 
6030 FOR S=1 TO PY 

6040 H$(S)=MIDS(L$,0(S),1) 
6050 NEXT S 
6060 RETURN 
6500 REM 
6510 REM 
6520 REM 
6530 FOR S=1 TO P9? 
6540 G$(S)=H$(S) 
6550 NEXT § 
6560 RETURN 
8000 REN 


PRINT SCORE 


CONVERT Q(1-P9) INTO 6$(1-P9) 


CONVERT O(1-P9) TO HS(T~-P9) 


Cory HS INTO 6S 


PROGRAM DATA FOR COLOR NAMES 


8010 DATA BLACK, WHITE,RED, GREEN, ORANGE, YELLOW, PURPLE, TAN 


9998 REM ...WE°RE SORRY BUT IT’S TIME TO GO... 


9999 END 


a0" 


© 


*Mhepasnnes teh 


wee wot 
eee 
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Math Dice 


The program presents pictorial drill 
on addition facts using printed dice 
with no reading involved. It is good for 
beginning addition, since the answer 
can be derived from counting spots on 
the dice as well as by memorizing math 
facts or awareness of number con- 
cepts. It is especially effective runona 
CRT terminal. 

It was originally written by Jim 
Gerrish, a teacher at the Bernice A. Ray 
School in Hanover, New Hampshire. 


HATH DICE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


THIS PROGRAH GENERATES SUCCESSIVE PICTURES OF Tud DICE. 
WHEN TWO DICE AND AN EQUAL SIGH FOLLOWED BY A QUESTION 

HARK HAVE BEEN PRINTED, TYPE YOUR ANSWER AND THE RETURN KEY. 
TO CONCLUDE THE LESSON, TYPE CONTROL-C AS YOUR ANSWER. 


BY 7 
RIGHT! 


THE DICE ROLL AGAIN... 


re | 
1 I 
I «! 
+ 
Teel 
Io* f 
lea] 
et 6 
NO, COUNT THE SPOTS AND GIVE ANOTHER ANSUER. 
275 


NO, THE ANSWER IS 7 


THE DICE ROLL AGAIN... 


2? 8 
RIGHT! 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
265 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
375 
380 
381 
400 
410 
500 
Sto 
520 
530 
540 
sat 
350 
560 
570 
580 
370 
600 
601 
610 
615 
620 
999 
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PRINT TAB(31)3"MATH DICE" 

PRINT TABCTS); “CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 
PRINTSPRINTIPRINT 

PRINT "THIS PROGRAH GENERATES SUCCESSIVE PICTURES OF TWO DICE.” 
PRINT “WHEN TWO DICE AWD AN EQUAL SIGN FOLLOWED BY A QUESTION" 


PRINT “MARK HAVE BEEN PRINTED, TYPE YOUR ANSWER AND THE RETURN KEY." 


PRINT "TO CONCLUDE THE LESSON, TYPE CONTROL~C AS YOUR ANSWER." 
PRINT 
PRINT 

NoN+t 

DEINT(G6RND(1)41) 

PRINT" ----- . 

IF D=t THEN 200 

If D=2 THEN 180 


IF D=3 THEN 180 
PRINT “Les [* 
GOTO 210 

PRINT "Ee I" 
GOTO 210 

PRINT “I " 
IF D=2 THEN 260 


IF De4 THEN 260 


IF D=6 THEN 270 
PRINT “IT @ 1" 
BOTO 280 
PRINT “1 ™ 
80T0 280 
PRINT "I # @ I" 


IF D=1 THEN 390 
IF D=2 THEN 330 

IF D=3 THEN 330 

PRINT “Ie 6 1" 

GOTO 340 

PRINT “1 & 1* 

GOTO 360 

PRINT "I I 

PRINT * -~-~~ " 

PRINT 

IF W=2 THEN 500 

PRINT “44 

PRINT 

aed 

GOTO 100 

T=D4A 

PRINT © at: 

INPUT TH 

IF Ti=T THEN 590 

PRINT “NO, COUNT THE SPOTS AND GIVE ANOTHER ANSWER." 
PRINT “ ats 

INPUT 12 

IF 1227 THEN 590 

PRINT “NO, THE ANSWER 19:7 
GOTO 600 

PRINT "RIGHT!" 

PRIRT 

PRINT “THE DICE ROLL AGAIN...” 
PRINT 

N20 

GOTO 100 

END 


Mugwump 


Your objective in this game is to find 
the four Mugwumps hiding on various 
squares of a 10 by 10 grid. Homebase 
(lower left) is position (0,0) and a guess 
is a pair of whole numbers (0 to 9), 
separated by commas. The first 
number is the number of units to the 
right of homebase and the second 
number is the distance above 
homebase. 

You get ten guesses to locate the 
four Mugwumps; after each guess, the 
computer tells you how close you are 
to each Mugwump. Playing the game 
with the aid of graph paper and a 
compass should allow you to find all 
the Mugwumps in six or seven moves 
using triangulation similar to Loran 
radio navigation. 

If you want to make the game 
somewhat more difficult, you can print 
the distance to each Mugwump either 
rounded or truneated to the nearest 
integer. Statement 390 would print 
either INT (D+.5) or INT (D). 

This program was modified slightly 
by Bob Albrecht of People’s Computer 
Company. It was originally written by 
students of Bud. Valenti of Project 
SOLO in Pittsburgh, Pennsylvania. 


Oh Oaon@wowodo 


oO mw NU 


0123 45 67 8 9 1011 12 13 14 15 


Use this scale with a compass to help find the Mugwumps. 
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MUGULHP 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


THE OBJECT OF THIS GAME IS TO FIND FOUR HUGWUHPS 
HIDDEN ON A 10 BY 10 GRID. HOMEBASE IS POSITION 0,0 
ANY GUESS YOU MAKE MUST BE TWO NUMBERS WITH EACH 
NUMBER BETWEEN 0 AND 9, INCLUSIVE. FIRST NUMBER 

18 DISTANCE TO RIGHT OF HOMEBASE AND SECOND NUMBER 
IS DISTANCE ABOVE HOMEBASE. 


YOU GET 10 TRIES. AFTER EACH TRY, I WILL TELL 
YOU HOW FAR YOU ARE FROM EACH MUGUUHP. 


TURN NO. 1 WHAT IS YOUR GUESS? 5,5 
YOU ARE 4 UNITS FROM MUGUUMP 1 

YOU ARE 3.1 UNITS FROM HUGUWUMP 2 
YOU ARE 4.2 UNITS FROM MUGUUNP 3 
YOU ARE 5 UNITS FROM NUGUUMP 4 


TURN NG. 2 WHAT 16 YOUR GUESS? 0,0 
YOU ARE 10.2 UNITS FROM MUGUUKP 1 
YOU ARE 8.9 UNITS FROM MUGUUNP 2 
YOU ARE 14.3 UNITS FROM MUGWUMP 3 
YOU ARE 5 UNITS FRON MUGUUNP 4 


TURN NO. 3 WHAT IS YOUR GUESS? 9,8 
YOU ARE 3 UNITS FROM MUGUUMP 1 

YOU ARE 4.1 UNITS FROM MUGWUKP 2 
YOU ARE 1 UNITS FROM MUGWUHP 3 

YOU ARE 8.9 UNITS FROM NUGUUMP 4 


TURN NO. 4 WHAT IS YOUR GUESS? 9,9 
YOU ARE 4 UNITS FROM MUGUUMP 1 

YOU ARE 5 UNITS FROM MUGWUNP 2 

YOU ARE 1.4 UNITS FROM MUGUUMP 3 
YOU ARE 9.8 UNITS FROM MUGUUMP 4 


TURN NO. 5 WHAT IS YOUR GUESS? 9,8 
YOU ARE 3.1 UNITS FROM MUGNUHP 1 
YOU ARE 4 UNITS FROM MUGWUMP 2 
YOU HAVE FOUND KUGNUKP 3 

YOU ARE 8.5 UNITS FROM MUGUUMP 


> 


TURN NO. 6 WHAT IS YOUR GUESS? 4 
YOU ARE 5.8 UNITS FROM MUGWUMP 1 
YOU ARE 5.6 UNITS FROM MUGNUHP 2 
YOU ARE 8 UNITS FROM MUGWUMP 4 


TURN NO. 7 WHAT IS YOUR GUESS? 3 
YOU ARE 6.3 UNITS FROM MUGUUMP 1 
YOU ARE 5.8 UNITS FROM KUGWUNP 2 
YOU ARE 7.2 UNITS FROM HUGWUMP 4 


TURN NO. 8 WHAT IS YOUR GUESS? 6 
YOU ARE 4.2 UNITS FROM MUGWUMP 1 
YOU ARE 4.4 UNITS FRON HUGUUMP 2 
YOU ARE 8 UNITS FROM MUGWUNP 4 


TURN NO. 9 WHAT IS YOUR GUESS? 6 
YOU ARE 5.8 UNITS FROM MUGUUNP 1 
YOU ARE 4.4 UNITS FROM MUGWUMP 2 
YOU ARE | UNITS FROM MUGWUMP 4 


TURN NO. 10 WHAT IS YOUR GUESS? 7,0 
YOU ARE 5.3 UNITS FROM MUGUUHP 1 
YOU ARE 4.4 UNITS FROM MUGWUHP 2 
YOU ARE 2 UNITS FROM MUGUUNP 4 


SORRY, THAT’S 10 TRIES. HERE IS WHERE THEY°RE HIDING 
wUGUUHP 1 IS AT (9,5) 
MUGUUHP 2 1S AT (8, 4) 
MUGUUNP 415 AT (5,0) 


THAT WAS FUNE LET’S PLAY AGAIN... 000 
FOUR MORE MUGWUHPS ARE NOW IN HIDING. 
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1 PRINT TAB(33);"NUSUUMP 
2 PRINT TABCIS)!"CREATIVE COMPUTING MORRISTOWN, HEU JERSEY" 
3 PRINTSPRINT PRINT 

4 REM COURTESY PEOPLE’S COMPUTER COMPANY 

10 DIM P(A,2) 

20 PRINT "THE OBJECT OF THIS GANE IS TO FIND FOUR MUGNUHPS” 
30 PRINT “HIDDEN ON A 10 BY 10 GRID. HOMEBASE IS POSITION 0,0" 
40 PRINT “ANY GUESS YOU HAKE MUST BE TWO NUMBERS WITH EACH” 
50 PRINT "NUMBER BETWEEN 0 AND 9, INCLUSIVE. FIRST NUMBER" 
60 PRINT "IS DISTANCE TG RIGHT OF HOMEBASE AND SECOND NUMBER" 
70 PRINT "IS DISTANCE ABOVE HOKEBASE.” 

80 PRINT 

90 PRINT "YOU GET 10 TRIES. AFTER EACH TRY, I WILL TELL" 
100 PRINT "YOU HOW FAR YOU ARE FROM EACH MUGWUNP." 

110 PRINT 

240 GASUB 1000 

250 T=0 

260 TsTH 

270 PRINT 

275 PRINT 

290 PRINT “TURN NO."STS°UHAT IS YOUR GUESS"; 

300 INPUT H,W 

310 FOR I=1 TO 4 

320 IF P(1,1)=-1 THEN 400 

330 IF P(I,1)<H THEN 380 

340 IF P(T,2)<2N THEN 380 

350 PUI, 1)=-1 

360 PRINT "YOU HAVE FOUND HUGWUHP" 31 

370 GOTO 400 

380 D=SOR((P(1,1)-4)°24 (PCT, 2)-N)72) 

390 PRINT "YOU ARE": (INT(D#10))/103"UNITS FROM NUGWUNP™?1 
AQQ NEXT 1 

Al FOR J=t TO 4 

420 IE P(J,1)<>-1 THEN 470 

430 NEXT J 

440 PRINT 

450 PRINT “YOU GOT THEM ALL IN"; T;°TURNS!" 

460 GOTO 580 

470 IF T<10 THEN 260 

480 PRINT 

490 PRINT “SORRY, THAT’S 10 TRIES. HERE 1S WHERE THEYRE HIDING" 
540 FOR I=1 TO 4 

550 IF P(1,1)=-1 THEN 570 

S60 PRINT "MUGMUMP"SIS"ES AT ("SPCT,10E","SPC1,200")" 

570 NEXT I 

580 PRINT 

600 PRINT “THAT WAS FUN! LETS PLAY AGAIN,......" 

410 PRINT "FOUR MORE HUGUUMPS ARE NOW IN HIDING." 

630 GOTO 240 

1000 FOR J=t TO 2 

1010 FOR I=1 TO 4 

1020 PCL, J)=TNT(108RNDC1)) 

1030 NEXT I 

1040 NEXT J 

1050 RETURN 

1099 END 


NAME is a silly little ice-breaker to 
get a relationship going between a 
computer and a shy human. The 
sorting algorithm used is highly inef- 
ficient — as any reader of Creative 
Computing will recognize, this is the 
worst possible sort for speed. But the 
program is good fun and that’s what 
counts here. 

NAME was originally written by 
Geoffrey Chase of the Abbey, 
Portsmouth, Rhode Island. 


1 PRINT TAB(34) 5 "NAHE" 

2 PRINT TAB(1S); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
3 PRINT: PRINT: PRINT 

5 DIN BS(40) 

10 PRINT “HELLO.": PRINT "MY NAME IS CREATIVE COMPUTER," 


20 PRINT “UHAT’S YOUR NAME (FIRST AND LAST": INPUT A$: L=LEN(AS) 


40 PRINT: PRINT "THANK YOU, "3 
40 FOR I=t TO Le BS(L)=MIDS(AS,1,1)8 NEXT I 
50 FOR I=t TO { STEP <1: PRINT BS(1)¢: NEXT I 


60 PRINT ".“: PRINT “OOPS! I GUESS 1 GOT IT BACKYARDS. A SMART" 


70 PRINT “COMPUTER LIKE ME SHOULDNT MAKE A MISTAKE LIKE THAT!": PRINT 


80 PRINT "BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER.” 
90 PRINT “LET“S PUT THEM IN ORDER LIKE THIS: "3 

100 FOR J=2 TO Ls: [=J-t: T$=B8(J) 

110 IF T$>B$(1) THEN 130 

120 BSCL+t)=BS(1): I=I-t2 IF 1>0 THEN 110 

130 BSCI+1)=1T$: NEXT J 

140 FOR I={ TOL: PRINT BS(1)3: NEXT Is PRINT: PRINT 

150 PRINT “DON’T YOU LIKE THAT BETTER’;: INPUT D$ 

160 IF D$="YES" THEN 180 


170 PRINT: PRINT “17H SORRY YOU DON’T LIKE IT THAT WAY.": GOTO 200 


180 PRINT: PRINT “I KNEW YOUD AGREE!!" 

200 PRINT: PRINT "I REALLY ENJOYED MEETING YOU "sas;"." 
210 PRINT "HAVE A NICE DAY!" 

999 END 
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NAME 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


HELLO. 
MY NAHE IS CREATIVE COMPUTER. 
WHAT’S YOUR NAHE (FIRST AND LAST? SGT PEPPER 


THANK YOU, REPPEP T&S. 
QOPS! I GUESS I GOT IT BACKWARDS. A SMART 
COMPUTER LIKE WE SHOULDN’T MAKE A MISTAKE LIKE THAT! 


BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER. 
LET‘S PUT THEM IN ORDER LIKE THIS: EEGPPPRST 


BON’T YOU LIKE THAT BETTER? NG 
IM SORRY YOU DON’T LIKE IT THAT WAY. 


T REALLY ENJOYED MEETING YOU SOT PEPPER. 
HAVE A NICE DAY! 


HELLO. 
MY NAME IS CREATIVE COMPUTER. 
WHAT‘S YOUR NAHE (FIRST AND LAST? SUSAN JONES 


THANK YOU, SENOJ NASUS. 
OOPS! I GUESS I GOT IT BACKWARDS. A SMART 
COMPUTER LIKE ME SHOULDNT MAKE A MISTAKE LIKE THAT! 


BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER. 
LET“S PUT THEM IN ORDER LIKE THIS: AEJNNOSSSU 


DON’T YOU LIKE THAT BETTER? YES 
IT KNEW YOU/D AGREE! ! 


T REALLY ENJOYED MEETING YOU SUSAN JONES. 
HAVE A NICE DAY! 


One of the most ancient forms of 
arithmetical puzzle is sometimes 
referred to as a “boomerang.” Atsome 
time, everyone has been asked to 
“think of a number,” and, after going 
through some process of private 
calculation, to state the resuit, after 
which the questioner promptly tells 
you the number you originally thought 
of. There are hundreds of varieties of 
the puzzle. 

The oldest recorded example 
appears to be that given in Arithmetica 
of Nicomachus, who died about the 
year 120. He tells you to think of any 
whole number between 1 and 100 and 
divide it successively by 3, 5, and 7, 
telling him the remainder in each case. 
On receiving this information, he 
promptly discloses the number you 
thought of. 

Can you discover a simple method of 
mentally performing this feat? If not, 
you can see how the ancient 
mathematician did it by looking at 
Lines 80-100 of the program. 

Nicomachus was written by David 
Ahl, 


2 PRINT TAB(33);"NICONA” 


4 PRINT TABCES); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 


6 PRINT: PRINT: PRINT 


10 PRINT “BOOMERANG PUZZLE FROM ARITHNETICA OF NICONACHUS -- A.D. 90!" 


20 PRINT 

30 PRINT "PLEASE THINK OF A NUMBER BETWEEN 1 AND 100." 
40 PRINT "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF"; 
45 INPUT A 

50 PRINT “YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF"; 
55 INPUT B 

60 PRINT “YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF"; 
635 INPUT C 

70 PRINT 

80 PRINT “LET HE THINK A MOMENT..." 

90 FOR I=1 TO 1500: NEXT I 

100 D=70%A+2148+159C 

110 IF D<=105 THEN 140 

120 D=D-105 

130 GOTO 110 

140 PRINT “YOUR NUMBER VAS"3D5", RIGHT"; 

160 INPUT AS 

165 PRINT 

170 IF AS="YES" THEN 220 

180 IF AS="NO" THEN 240 


190 PRINT “EH? J DON’T UNDERSTAND “"3AS;"% TRY “YES’ OR “NO’." 


200 GOTO 150 

220 PRINT “HOW ABOUT THAT!!" 

230 GOTO 250 

240 PRINT “I FEEL YOUR ARITHMETIC 1S IN ERROR." 
250 PRINT 

260 PRINT "LET“S TRY ANOTHER." 

270 GOTO 20 

999 END 
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NICOMA 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 


BOOMERANG PUZZLE FROM ARITHHETICA OF NICOMACHUS -- A.D. 90! 


PLEASE THINK OF A NUMBER BETWEEN 1 AND 100. 

YOUR NUMBER DIVIDED BY 3 HAS A REHAINDER OF? 
YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 7 HAS A REHAINDER OF? 


LET ME THINK A MOMENT... 
YOUR NUMBER WAS 40 , RIGHT? YES 


HOW ABOUT THAT!! 

LET’S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETWEEN 1 AND 100. 
YOUR NUMBER DIVIDED BY 3 HAS A REWAINDER OF? 
YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 7 HAS A REHAINDER OF? 


LET ME THINK A MOMENT... 
YOUR NUMBER WAS 100 , RIGHT? YES 


HOW ABOUT THAT!! 

LET‘S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETWEEN 1 AND 100. 
YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF? 


LET MF THINK A MOMENT... 
YOUR NUMBER YAS 39 , RIGHT? NO 


1 FEEL YOUR ARITHHETIC 1S IN ERROR. 

LET‘S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETWEEN 1 AND 100. 
YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF? 


LET ME THINK A MOMENT... 
YOUR NUMBER WAS 1, RIGHT? YES 


HOW ABOUT THAT!! 


~/ 


_ > ao NS 


NIM is one of the oldest two-person 
games known to man; it is believed to 
have originated in ancient China. The 
name, which was coined by the first 
mathematician to analyze it, comes 
from an archaic English verb which 
means to steal or to take away. Objects 
are arranged in rows between the two 
opponents as in the following example: 


XXXXXXX Row 1 — 7 Objects 
XXXXX Row 2 — § Objects 
XXX Row 3 — 3 Objects 
> 4 Row 4 — 1 Object 


Opponents take turns removing 
objects until there are none left. The 
one who picks up the last object wins. 
The moves are made according to the 
following two rules: 


1. On any given turn only objects from 
one row may be removed. There is no 
restriction on which row or on how 
many objects you remove. Of 
course, you cannot remove more 
than are in the row. 

2. You cannot skip a move or remove 
zero objects. 


The winning strategy can be 
mathematically defined, however, 
rather than presenting it here, we’d 
rather let you find it on your own. HINT: 
Play a few games with the computer 
and mark down ona piece of paper the 
number of objects in each stack (in 
binary!) after each move. Do you seea 
pattern emerging? 

This game of NIM is from Dartmouth 
College and is a generalized game 
which allows you to specify any 
starting size for the four piles and alsoa 
win option. To play traditional NIM, 
you would simply specify 7,5,3, and 1, 
and win option 1. 


NIM 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


118 


THIS IS THE GANE OF NIN. 

DO YOU WANT INSTRUCTIONS? YES 

THE GAME IS PLAYED WITH A NUMBER OF PILES OF OBJECTS. 

ANY HUMBER OF OBJECTS ARE REMOVED FROM ONE PILE BY YOU AND 
THE MACHINE ALTERNATELY. OW YOUR TURN, YOU HAY TAKE 

ALL THE OBJECTS THAT REMAIN IM ANY PILE BUT YOU MUST 

TAKE AT LEAST ONE OBJECT, AND YOU HAY TAKE OBJECTS FROM 
GHLY ONE PILE ON A SINGLE TURN. YOU MUST SPECIFY WHETHER 
WINNING IS DEFINED AS TAKING OR WOT TAKING THE LAST OBJECT, 
THE NUMBER OF PILES IN THE GAME, AND HOW NANY OBJECTS ARE 
ORIGINALLY IN EACH PILE. EACH PILE WAY CONTAIN A 

DIFFERENT NUMBER OF OBJECTS. 

THE HACHINE WILL SHOW ITS MOVE BY LISTING EACH PILE AND THE 
NUMBER OF GBJECTS RENAINING IN THE PILES AFTER EACH OF ITS 
NOVES, 


ENTER WIN OPTION - t TO TAKE LAST, 2 TO AVOID LAST? 2 
ENTER HUMBER OF PILES? 4 
ENTER PILE SIZES 

f? 10 


WANT TO MOVE FIRST? NO 
SIZE 


wo 
Pane noaan 
mm 


YOUR HOVE ~ PILE,NUNBER TO BE REMOVED? 1,9 
PILE SIZE 
1 


1 
2 3 
34 
4 3 
YOUR HOVE ~ PILE,NUMBER TO BE REMOVED? 2,2 
PILE SIZE 
‘ 


1 
21 
31 
40 


YOUR HOVE - PILE,NUNBER TO BE REMOVED? 3,1 
MACHINE WINS 
Do you want to play another gane? NO 


100 PRINT TAB(33); "HIM" 4070 LET H=A(T) 

110 PRINT TAB(15);"CREATIVE COMPUTING HORRISTOUN, NEW JERSEY“ 1100 LET G=I 

120 PRINTEPRINTSPRINT 1140 NEXT I 

210 DIN A(100),B(100,10),D(2) 1120 IF C/2<>INT(C/2) THEN 1190 
220 PRINT "THIS IS THE GAME OF NIM.” 1130 NEXT J 

230 PRINT "DO YOU WANT INSTRUCTIONS"; 1140 LET E=INTCN#RND (141) 


240 INPUT Z$ 1150 IF ACE)=0 THEN 1140 

250 IF Z$="NO" THEN 440 1160 LET FEINT(ACE) *RND(1)41) 
260 IF Z$="no" GOTO 440 1170 LET ACE)=A(E)-F 

270 IF Z$="YES" THEN 310 1180 GOTO 1380 

280 IF Z$="yes" GOTO 310 1190 LET A(G)=0 

290 PRINT "PLEASE. YES OR NO"; 1200 FOR J=0 TO 10 

300 GOTO 240 1210 LET B(6,J)=0 

310 PRINT “THE GAME IS PLAYED WITH A NUMBER OF PILES OF OBJECTS." 1220 LET C=0 

320 PRINT "ANY NUMBER OF OBJECTS ARE REMOVED FROM ONE PILE BY YOU AND" 1230 FOR I=1 TON 

330 PRINT "THE MACHINE ALTERNATELY. ON YOUR TURN, YOU MAY TAKE" 1240 IF B(1,J)=0 THEN 1260 
340 PRINT "ALL THE OBJECTS THAT REMAIN IN ANY PILE BUT YOU MUST” 1250 LET C=C+1 

350 PRINT “TAKE AT LEAST ONE OBJECT, AND YOU MAY TAKE OBJECTS FROM" 1260 NEXT I 

360 PRINT "ONLY ONE PILE GN A SINGLE TURN. YOU HUST SPECIFY WHETHER” 1270 LET A(G)=A(G)+2%(C/2-INT(C/2) )#2°J 
370 PRINT “WINNING IS DEFINED AS TAKING OR NOT TAKING THE LAST OBJECT,” 1280 NEXT J 

380 PRINT “THE NUMBER OF PILES IN THE GAHE, AND HOW MANY OBJECTS ARE" 1290 IF U=1 THEN 1380 

390 PRINT "ORIGINALLY IN EACH PILE. EACH PILE WAY CONTAIN A* 1300 LET C=0 

400 PRINT “DIFFERENT NUMBER OF OBJECTS." 1310 FOR I=1 TON 

410 PRINT “THE MACHINE WILL SHOW ITS HOVE BY LISTING EACH PILE AND THE” 1320 IF ACI)>1 THEN 1380 

420 PRINT "NUMBER OF OBJECTS REMAINING IN THE PILES AFTER EACH OF ITS" 1330 IF ACT)=0 THEN 1350 

430 PRINT "HOVES." 1340 LET C=C+1 

440 PRINT 1350 NEXT I 

450 PRINT "ENTER WIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST"; 1360 IF C/2¢>INT(C/2) THEN 1380 
460 INPUT W 1370 LET ACG)=1-At6) 

470 IF U=t THEN 490 1380 PRINT "PILE SIZE" 

480 IF U<>2 THEN 450 1390 FOR I=? TO N 

490 PRINT "ENTER NUMBER OF PILES"; 1400 PRINT IsAtl) 

500 INPUT W 1410 NEXT I 

S10 IF N>100 THEN 490 1420 IF W=2 THEN 1450 

520 IF N<f THEN 490 1430 GOSUB 1570 

S40 IF N<>INT(H) THEN 490 1440 IF Z=1 THEN 820 

540 PRINT “ENTER PILE SIZES" 1450 PRINT “YOUR HOVE - PILE,NUMBER TO BE REMOVED"; 
550 FOR I=1 TON 1460 INPUT X,Y 

560 PRINT I; 1470 IF X>H THEN 4450 

570 INPUT A(T) 1480 IF X<1 THEN $450 

580 IF ACI)>2000 THEN 5460 1490 IF X<>INT(X) THEN 1450 
590 IF ACI}<1 THEN 580 1500 IF Y>A(X) THEN 1450 

600 IF ACE)C>INTCACI)) THEN 540 1510 IF ¥<i THEN 1450 

610 NEXT I 1520 IF Y<>INTCY) THEN 1450 


620 


PRINT “DO YOU WANT TO HOVE FIRST": 


LET A(X)=A(X)-¥ 


630 INPUT Q9¢ 1940 GOSUB 1570 

640 IF O9$="YES" GOTO 1450 1550 IF Z=1 THEN 800 

650 IF O9$="yes" GOTO 1450 1560 GOTO 700 

660 IF Q9$="NO" GOTO 700 1570 LET Z=0 

670 IF @9$="no" GOTO 700 1580 FOR I=1 TON 

680 PRINT "PLEASE. YES OR NO"; 1590 IF ACI)=0 THEN 1610 
690 GOTO 630 1600 RETURN 

700 IF W=1 THEN 940 1610 WEXT I 

710 LET C=0 1620 LET Z=1 

720 FOR I=1 TON 1630 RETURN 

730 IF ACI)=0 THEN 770 1640 PRINT "Do you want to play another gane"; 
740 LET C=C+#1 1650 INPUT O9$ 

750 IF C=3 THEN 840 1640 IF 09$="YES" THEN 1720 
760 LET B(C)=1 1670 IF O9$="yeas" THEN 1720 
770 NEXT I 1680 IF Q9$="HO" THEN 1730 
780 IF C=2 THEN 920 1690 IF Q9$="no" THEN 1730 
790 IF ACB(1))>¢ THEN 820 1700 PRINT “PLEASE. YES OR NO"; 
800 PRINT "MACHINE LOSES" 1710 GOTO 1450 

810 GOTO 1640 1720 GOTO 440 = 
820 PRINT "HACHINE WINS" 

830 GOTO 1640 

840 LET C0 

850 FOR I=t TON 

860 IF ACI)>1 THEN 940 

870 IF ACI)<0 THEN 890 

880 LET C=C+1 

890 NEXT I 

900 IF C/2<>1NT(C/2) THEN 800 

910 GOTO 940 

920 IF A(D(1))=1 THEN 820 

930 IF ACD(2))=1 THEN 820 

940 FOR I=1 TON 

950 LET E=A(I) 

960 FOR J=0 TO 10 

970 LET F=E/2 

980 LET BCI, J)=2e(F-INT(F)) 


990 


LET E=INT(F) 


1000 NEXT J 


1010 
1020 
1030 
1040 
1050 
10460 
1070 
1080 


NEXT I 

FOR J=10 TO 0 STEP ~-1 
LET C=0 

LET H=0 

FOR I=f TON 

TF BCT,J)=0 THEN 1110 
LET C=C+1 

IF ACE)<=H THEN 1110 
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THAT (T'S WoN..... 


CT SAYS THE INDUSTRIAL 
REVOLUTION §S OVER ALD 
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Number 


In contrast to other number guessing 
games where you keep guessing until 
you get the random number selected 
by the computer (GUESS, TRAP, 
STARS, etc.), in this game you get only 
one guess per play and you gain or lose 
points depending upon how close your HUMBER 
guess is to the random number CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
selected by the computer. You oc- 
casionally get a jackpot which will 


i i 1 PRINT TAB(33); "NUMBER" 
aretha pom count. You win when 2 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
you get o0U points. ; 3 PRIRTZPRINT:PRINT 
Tom Adametx wrote this program 4 PRINT “YOU HAVE 100 POINTS. BY GUESSING NUMBERS FROM 1 10 5, YOU" 
while a student at Curtis Junior High ; PRINT “CAN GAIN oR Lose POINTS DEPENDING UPON HOW CLOSE YOU GET TO" 
: K TED BY THE COMPUTER.": PRINT 

School in Sudbury, Massachusetts. 7 PRINT “YOU OCCASIONALLY WILL GET A JACKPOT UHICH WILL DOUBLE(1)° 
@ PRINT “YOUR POINT COUNT. YOU WIN WHEN YOU GET 500 POINTS.” 
9 PRINT: P=100 

YOU HAVE 100 POINTS. BY GUESSING NUMBERS FROM ft TO 5, YOU 10 DEF FNRCX)=INT(S@RND(1)41) 

CAN GAIN OR LOSE POINTS DEPENDING UPON HOW CLOSE YOU GET 10 12 INPUT "GUESS A NUMBER FROH 1 TO 5";6 

@ RANDOM WUNBER SELECTED BY THE COMPUTER. 15 ReFNRG(E) 
16 S=FRR(1) 

YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLEC!) 17 TSFNR(1) 

YOUR POINT COUNT. YOU WIN WHEN YOU GET 500 POINTS. 18 U=FNRGT) 
19 VeFNR(L) 

GUESS A NUMBER FROH 1 TO 57 2 20 IF G=R THEN 30 

YOU HAVE 95 POINTS. 21 IF G=S THEN 40 

GUESS A HUMBER FROM 1 TO 5? 2 22 IF G=T THEN 50 

YOU HAVE 90 POINTS. 23 IF G=U THEN 40 

GUESS A NUMBER FROM 1 TO 5? 2 24 IF G=V THEN 70 

YOU HAVE 95 POINTS. 25 IF G>5 THEN 12 

GUESS A NUMBER FROM t 10 57 2 30 P=P-5 

YOU HAVE 96 POINTS. 35 GoTo 80 

GUESS A NUMBER FROM 1 TO ST 2 40 P=P+5 

YOU HIT THE JACKPOTIT! 45 GOTO 80 

YOU HAVE 192 POINTS. 50 P=P+P 

GUESS A NUKBER FROM 1 TO 5? 3 Sa PRINT “YOU HIT THE JACKPOT!!!" 

YOU HIT THE JACKPOTIS} 55 GOTO 80 

YOU HAVE 384 POINTS. 60 PeP+t 

GUESS A NUMBER FROM 1 TO 57 1 65 GOTO 80 

YOU HAVE 389 POINTS. 70 P=p-(P*.5) 

GUESS A NUMBER FROM 1 TO 5ST 2 80 IF P>500 THEN 90 

YOU HAVE 394 POINTS. 82 PRINT “YOU HAVE";P;"POINTS." 

GUESS A NUMBER FROM 1 10 57 5 85 GOTO 12 

YOU HIT THE JACKPOT!T! 90 PRINT “1111YOU WINEHI! WITH “SP;"POINTS." 

HELVYOU WIMEEL! WITH 788 POINTS. 99 END 
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In this game or puzzle, 48 checkers 
are placed on the two outside spaces of 
a standard 64-square checkerboard as 
shown: 


The object is to remove as many 
checkers as possible by diagonal 
jumps (as in standard checkers). 

Itis easy to remove 30 to 39 checkers, 
a challenge to remove 40 to 44, and a 
substantial feat to remove 45 to 47. 

The program was created and 
written by David Ah. 


QNE CHECK 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 


SOLITAIRE CHECKER PUZZLE BY DAVID AHL 


48 CHECKERS ARE PLACED ON THE 2 QUTSIDE SPACES OF A 
STANDARD 64-SQUARE CHECKERBOARD. THE OBJECT IS TO 
REMOVE AS HANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS 
(AS IN STANDARD CHECKERS). USE THE NUMBERED BOARD 10 
INDICATE THE SQUARE YOU WISH TO JUHP FROM AND TO. OW 
THE BOARD PRINTED OUT ON EACH TURN “1° INDICATES A 
CHECKER AND ‘0’ AN EMPTY SQUARE. WHEN YOU HAVE NO 
POSSIBLE JUMPS REMAINING, INPUT A “0” IN RESPONSE 10 
QUESTION “JUMP FROH 77 


HERE IS THE NUMERICAL BOARD: 


ft 2 3 4 G$ 6&6 7 8 

9 10 1 12 13° 14 «15 16 
17 18 % 20 21 22 23 24 
25926 «27 28 «29 «30 FI 32 
33034035 36 8 87 40 
41 42 43 44 45 46 47° 48 
49 50 St 92 53 54 55 54 
57 58 57 60 61 62 63 64 


AND HERE 


onl 
on 
ot 
=x 
m 


OPENING POSITION OF THE CHECKERS. 


ra nn aes 
—~— OCC OoO- 
mat OOOoo s+ 
—m—ooCoeo- 
~~ OOS oO 
ee 
ne ane re 


JUMP FRO? 1 
TO? 19 


| 
ao oom 
=O Om am 
—-=-ceocoom 
“sO Ooo m 


JUMP FROH? 2 
TO? 20 


9 
—_—a me OS 
—-oooO40o-4 
~=sOOom sm 
“mM ODS Om om 


JUMP FROM? 3 
70? 21 


Se entienttnaiknctientaent—2 
“na OD 
—~-se0~—o0 
~=-soo=—o— 
—-=-c30C Oo — — — 


JUMP FROK? 8 
TO? 22 


~~  S 
et OO 
~mOOCOoO=oo 
—-—Oooo~om 
MO Oom ee 


JUMP FROM? 16 
TO? 30 


ee 
Se OOD 
me OOo oS 
—~ mm OOO Oo 
ed 


JUMP FROM? 64 
TO? 46 


a te 
awe OO 
~~=—Oso~od 
-~-ooom oe 
Se — 
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mae OOo anwa es oOOum es ~=sooo-= ~s~Seoo0o-m ~~ ooo o— 


ee — es 


OOS ot ee th hh ee Pear ee en ears a ae ar 


~OoO~m~e KH OOm 


At tt mt OO ht mh meh et eh mh pe ae ee are end re ae ae are ee ee pone ae aay 


Oe BH BOO 


JUMP FROM? § 
TO? 23 


+ 
“ama OO 
—~“ceo0-400 
—~-eoo= om 
“soso o~- so 


JUMP FROM? 57 
TO? 5S! 


ILLEGAL MOVE. 
JUMP FROM? 57 
TO? 43 


Seem eS 
~Om wa Oo 
“Ss = SOOM OO 
~sMBOOH om 
“SOS O~ =O 


JUMP FROM? 25 
TO? 11 


00010 
10 f 0 1 
forts 
o 1 0 0 0 
1100 0 
17 10 0 
1 Oo f 1 4 
ot § ft 


JUMP FROH? 4 
TO? 18 


000 0 0 
10 0 0 ft 
' ft 4 t 
6 10 0 «0 
110 0 0 
1 11 0 0 
10 1 17 1 
of tt 


JUMP FROM? 49 
TO? 35 


Dom mM Ome Se 
~m~oooe--o85 
a 
wm OOO-CSo 
~—SO0-"60 


JUMP FROM? 41 
TG? 27 


00900 0 
10 0 0 1 
i otttt 
o 11 0 0 
10 1060 0 
oo 16 0 
90 tf ta 
of ft 


hh met et 


—~—a ew Ome om a Oot at Oe am  O e  oe ek et et Ot 


~~ Oo Om 


HO maw om 


AGAIN... 


~OoOmoeai som Ot oe ee ~~ Om ae Owe =Om enw on 


ae an 


on we OD 


Dw nt ee ot OO ee ae a) owe ee et OO Sma mw OD 


Oo ot ot OO 


JUMP FROM? 58 
TO? 44 


oOG-o-~i 6 
eoooo=c0 
-OoH+sr em soo 
me OOM OS 
—~m Oooo ms 


JUMP FRON? 26 
TO? 11 


ILLEGAL MOVE. 
JUMP FRON? 26 
TO? 12 


Soom OM HO 
eodoeoo-oco 
—-om-=-9o905 
7 
~—oo0o—— 0 


JUMP FROH? 2 
TO? 4 


ILLEGAL MOVE. 
JUMP FROK? 22 
TO? 4 


eooo-o~- 0 
eoococo-os 
~Qa wm Soo 
saan ogonwnn 
—— OC Oo “~ 32 oO 


JUMP FROM? 59 
TO? 45 


OPOo-o- so 
eoocoo-060 
Som moss 
TAO HOD me me 
—sm KH OOH OS 


JUMP FROH? 18 
TO? 34 


ooo oe — Ss 
oococco oc so 
oor" OOO Sf 
ee — ae 
~~ e OOM O So 


JUMP FROM? 21 
To? 3 


ooo~mo- =o 
oooocooes 
coos SOO 
“oe mK oH Om 
ee 


OO —a a OHO 


~t wt Ot OOm a ee ——s wt Om Oam 


wot OM OSs 


=-$Oe wn mom 


AGAIN... 


eae ee ae 


AGAIN... 


et AO 


Ot ee mom 


ee ee — 


Qasr HOD Ome awn os 


Omen oo one ew Bo Dm DO 


On wOO 


Later in the game.... 


JUMP FROH? 48 
TO? 30 


ooo c0o-20 


JUMP FROM? 37 
T0? 23 


eoooo~ oo 


oooo coc 6 


eooocoocs 


ooo9co — ~~ Oo wm 


eooco-+- oOo =— 


—~Oocoeoecceo Ss 


—moaocoooc oc oo 


we DOoSs 


~——m = OOO SG 


JUMP FROH? 32 


TO? 14 


eoooco-o6 


JUMP FRONT 7 


eooocece sa 


TO? 21 


oooococ$-o co 


occcococg 


oO C Om 4 Om 


oo cos“ o 


~—~ocecoecoocose 


—~Oaoooco °c 


—s MOODS 


“ot OO SO 


JUMP FROM? 45 


TO? HW 


ooooco“ 29 


eoooococc cs 


ooooc m= OG = 


mo ooo oOo Cfo 


~~ OOSO-— 20 


JUMP FRON? 40 


TO? 22 


eocco-o So 


ooo o oo & 


“—~ ooo eo O° So 


~— OOo OC— Oo 


JUMP FROH? 63 


TO? 45 


oeoqgoco-co 


Ooooooco cos 


oooo~—o — 


~ Oooo coc se 


~~ OO OG 


wat OOmMOm sae OOOO aot OOD teh mae Dk me Aste DOO A Oe 


=-Oo-9000-4 


—oa-ncocooss —~o-o-cos —~O-S0o000 —Oo-oscco— “Os OS om ~Om SOOO m 


oon ooo ceo 


e-oosoocse o~o-aoseo On o~oasce e-s-ccscosd one“ soos a~o=soco 


onmocoo cso 


JUMP FROM? 53 


TO? 39 
oOo tf 0 0 ft 0 0 
6000000 0 
1 O 10 11410 0 
oo 106006000 0 
900000010 
60004101 0 
00000001 
00 0 1 110 ~°0 
JUMP FROM? 56 

TO? 38 
60100400 
06600000 
t'otrot1oo 
oo tf 0000 0 
9600011 0 
o6 00100 0 
60000000 
oOo 0 1 f 10 6 

JUMP FRONT 45 

TO? 31 
00100100 
0060000 0 
'o11rotit oo 
0 1000 1 «0 
9000001 @ 
9000000 0 
000000 0 0 
oo 0 1 4 10 06 

JUHP FROM? 31 

TO? #3 

oo 100 4 0 0 
000060 100 0 
1 oOo 1 0 100 0 
oo 10000 0 
0000001 0 
00 0000 0 0 
6000 00 0 0 
oo 0 1 1 10°90 

JUMP FROM? 6 

TO? 20 

00 1000600 06 
000000 0 0 
'o ' 1 1060 0 
909100000 
00000010 
0000000 0 
00600000 0 
9 o 0 1 11 00 

JUMP FRONT 35 

TO? 20 

ILLEGAL MOVE. TRY AGAIN... 

JUMP FROM? 35 

To? 21 

ILLEGAL MOVE. TRY AGAIN... 

JUMP FROM? 35 

Te? 13 

ILLEGAL MOVE. TRY AGAIN... 

JUMP FROW? 35 7 

TO? 0 

ILLEGAL MOVE. TRY AGAIN... 

JUMP FROM? 27 

TO? 13 
0100000 
0006010 00 
1o 110 1000 
00000000 
9000001 0 
00900000 0 
00000000 
oo 0 t 1 10 ~°0 


JUMP FROK? 0 


- YOU MADE 39 JUMPS AND HAD 9 PIECES 


REMAINING ON THE BOARD. 


TRY AGAIN? NO 


2 PRINT TAB(30);"0NE CHECK" 
4 PRINT TAB(IS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


6 PRINT: PRINT: PRINT 

8 DIM A464) 

10 PRINT "SOLITAIRE CHECKER PUZZLE BY DAVID AHL" 

1S PRINT 

20 PRINT “48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SPACES OF A" 
25 PRINT "STANDARD 64-SQUARE CHECKERBOARD. THE OBJECT 1S To" 

30 PRINT "REMOVE AS MARY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS" 
35 PRINT "(AS IN STANDARD CHECKERS). USE THE NUMBERED BOARD TO" 
40 PRINT “INDICATE THE SQUARE YOU WISH TO JUNP FROM AND TO. ON" 
43 PRINT “THE BOARD PRINTED QUT ON EACH TURN “1” INDICATES A" 

SO PRINT "CHECKER AND “O’ AN EMPTY SQUARE. WHEN YOU HAVE NO" 

SS PRINT "POSSIBLE JUMPS REMAINING, INPUT A “0’ IN RESPONSE To” 
60 PRINT “QUESTION “JUMP FRO 77" 

62 PRINT 

65 PRINT "HERE IS THE HUMERICAL BOARD:" 

66 PRINT 

70 FOR J=1 TO 57 STEP 8 
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PRINT J; ABCA); J+1;TAB(B) $5423 TABC12) 5433 TABC16) $U+43TAB(20) 3453 
PRINT TAB(24)!J+63TAB(2B) $J+7 
NEXT J 

PRINT 

PRINT “AND HERE IS THE OPENING POSITION OF THE CHECKERS.” 
PRINT 

FOR J=1 TO 64 

ACSI 

NEXT J 

FOR J=19 TO 43 STEP 8 

FOR I=J TO J#3 

A(T)=0 

NEXT I 

NEXT J 

H=0 

GOTO 340 

INPUT "JUNP FROM" SE 

IF F20 THEN 500 

INPUT "TO" ST 

PRINT 

REX ##% CHECK LEGALITY OF HOVE 
FIEENT((F~1)/8) 

F2=F-B4F 1 

THEINTC(T#1)78) 

T2=T-8#Tt 

IF FID? THEN 230 

IF T1>7 THEN 230 

IF F2>8 THEN 230 

IF 1298 THEN 230 

IF ABS(FI-T1)<92 THEN 230 

IF ABS(F2-T2)<>2 THEN 230 


IF ACCT+F)/2)=0 THEN 230 
IF ACF)=0 THEN 230 

IF A(T)=1 THEN 230 

GOTO 250 

PRINT "ILLEGAL MOVE. TRY AGAIN..." 
GOTO 100 

REM ##+ UPDATE BOARD 
A(T) =4 

ACF )=0 

AC(THF)/2)20 

Hen+t 

REM +8 PRINT BOARD 


FOR J=1 TO 57 STEP 8 

FOR I=J 10 J+7 

PRINT ACT)5 

NEXT I 

PRINT 

NEXT J 

PRINT 

GOTO 100 

REN ##% END GANE SUMMARY 

S=0 

FOR I=f TO 64 

S=StA(T) 

NEXT I 

PRINT "YOU HADES H;"JUMPS AND HAD"?S;"PIECES" 
PRINT “REMAINING ON THE BOARD." 

PRINT 

INPUT "TRY AGAIN" AS 

IF AS$="YES" THEN 70 

TF As="NO" THEN 600 

PRINT “PLEASE ANSWER “YES” OR “NO’." 

GOTO 562 
PRINT 
PRINT “O.K. 
END 


HOPE YOU HAD FUNI!" 


Orbit 


ORBIT challenges you to visualize 
spatial positions in polar coordinates. 
The object is to detonate a Photon 
explosive within a certain distance ofa 
germ laden Romulan spaceship. This 
ship is orbiting a planet at a constant 
altitude and orbital rate 
(degrees/hour). The location of the 
ship is hidden by a device that renders 
the ship invisible, but after each bomb 
you are told how close to the enemy 
ship your bomb exploded. The 
challenge is to hit an invisible moving 
target with a limited number of shots. 

The planet can be replaced bya point 
at its center (called the origin); then the 
ship’s position can be given as a 
distance from the origin and an angle 
between its position and the eastern 
edge of the planet. 


direction hip 
of orbit 


angle 
E 


The distance of the bomb from the 
ship is computed using the law of 
cosines (see line 430 of the program 
listing). The law of cosines states 


D=\j/ R**2+D1**2+R*D1*COS (A-A1) 


where D is the distance between the 
ship and the bomb, R is the altitude of 
the ship, D1 is the altitude of the bomb, 
and A-A1 is the angle between the ship 
and the bomb. 


Practice Off-Line Problem: 

Aircraft appear on radar as blips of 
the form "=", What is the distance 
between the TWA and United aircraft 
shown on the radar screen on the right. 


ORBIT was originally called SPACE 
WAR and was written by Jeff Lederer of 
Project SOLO Pittsburgh, Penn- 
sylvania. 


ORBIT 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


SOMEUHERE ABOVE YOUR PLANET IS A ROMULAN SHIP. 


THE SHIP IS IN A CONSTANT POLAR ORBIT. ITS 
DISTANCE FROM THE CENTER OF YOUR PLANET IS FROM 


10,000 TO 30,000 MILES AND AT ITS PRESENT VELOCITY CaN 


CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HOURS. 


UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE 50 


YOU ARE UNABLE TO SEE THEM, BUT WITH A SPECIAL 
INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR 


PHOTON BOMB EXPLODED. YOU HAVE SEVEN HOURS UNTIL THEY 
HAVE BUILT UP SUFFICIENT POWER IN ORDER TO ESCAPE 


YOUR PLANET’S GRAVITY. 


YOUR PLANET HAS EWOUGH POWER TO FIRE ONE BOMB AN HOUR. 


AT THE BEGINNING OF EACH HOUR YOU WILL BE ASKED T0 GIVE AN 
ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS OF 
100 MILES (BETWEEN 100 AND 300), AFTER WHICH YOUR BONB’S 


DISTANCE FROM THE ENEMY SHIP WILL BE GIVEN. 


AK EXPLOSION WITHIN 5,000 MILES OF THE ROHULAN SHIP 


VILL DESTROY IT. 


BELOU 13 A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT. 


90 


0000000000000 
0000000000000000000 
000000 000000 
00000 00000 
00000 AXXXKXKXXXX 00000 
00000 XXXXXXAXXXXKX 00000 
0000 XXXXXXAXXAXXXXX 0000 
0000 AXAXXXAKAAAXAXAAK 0000 
0000 AXAXAXAXAAXAXARAAXX 0000 


180<== 00000 KXXXXXXANAXARAXXAKA 00000 ==>0 


0000 XAXAXAXAKAXAAAXXAKK 0000 
0000 XXANXAKAXXAXAXAXK 0000 
0000 XAXAAXAXKAAXXAX 0000 
00000 AMAXXAAXKXXAX 00000 
00000 XXAXAXXXXAX 00000 
00000 00000 
000000 000000 
0000000000000000000 
0000000000000 
! 

270 


X ~ YOUR PLANET 
0 - THE ORBIT OF THE RONULAN SHIP 


ON THE ABOVE DIAGRAM, THE RONULAN SHIP IS CIRCLING 
COUNTERCLOCKWISE AROUND YOUR PLANET. DON’T FORGET 
WITHOUT SUFFICIENT POUER THE ROMULAN SHIP’S ALTITUDE 
AND ORBITAL RATE WILL REMAIN CONSTANT. 


GOOD LUCK. THE FEDERATION 19 COUNTING ON YOU. 


HOUR 1 , AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOHB? 90 
HOW FAR OUT DO YOU WISH TO DETONATE IT? 250 


YOUR PHOTON BONB EXPLODED 270.671 ¥10°2 MILES FROM THE 
ROMULAN SHIP. 


HOUR 2, AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOKB? 260 
HOW FAR OUT DO YOU WISH TO DETONATE IT? 200 


YOUR PHOTON BOMB EXPLODED 382.522 *10°2 MILES FROM THE 
ROMULAN SHIP, 


HOUR 3, AT WHAT ANGLE DO YOU WISH TQ SEND 
YOUR PHOTON BOHB? 35 
HOW FAR OUT DO YOU WISH TO DETONATE IT? 200 


YOUR PHOTON BOMB EXPLODED 136.608 #10°2 MILES FROM THE 
ROHULAN SHIP. 


HOUR 4 , AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 20 
HOW FAR QUT DO YOU WISH TO DETONATE IT? 399 


YOUR PHOTON BOMB EXPLODED 342.719 #10°2 MILES FRON THE 
ROMULAN SHIP. 


HOUR 3, AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOKB? 40 
HOW FAR OUT BO YOU WISH TO DETONATE IT? 100 


YOUR PHOTON BOHB EXPLODED 228.24 *10°2 MILES FROM THE 
ROMULAN SHIP. 


HOUR 6 , AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOHB? $5 
HOW FAR OUT DO YOU WISH TO DETONATE IT? 209 


YOUR PHOTON BOHB EXPLODED 328.9821 #10°2 MILES FROM THE 
ROMULAN SHIP. 


HOUR 7 , AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOKB? 20 
HOW FAR QUT DO YOU WISH TO DETONATE IT? 100 


YOUR PHOTON BOMB EXPLODED 299.178 #10°2 MILES FROM THE 

ROHULAN SHIP. 

YOU HAVE ALLOWED THE ROHULANS TO ESCAPE. 

ANOTHER ROHULAN SHIP HAS GONE INTO ORBIT. 

DO YOU WISH TO TRY TO DESTROY IT? I HATE COMPUTERS THAT NEVER LOSE 
GOOD BYE. 


2 PRINT TABC33) 5 "ORBIT" 

4 PRINT TABC1S); CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
6 PRINTSPRINT:PRINT 

10 PRINT “SOMEUHERE ABOVE YOUR PLANET IS A ROMULAN SHIP,“ 

15 PRINT 

20 PRINT “THE SHIP IS IN A CONSTANT POLAR ORBIT. ITS" 

25 PRINT “DISTANCE FROM THE CENTER OF YOUR PLANET IS FROM“ 
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30 

au 

35 

40 

45 

50 

55 

60 

65 

70 

73 

80 

85 

90 

95 

100 
105 
110 
Wt 
114 
115 
116 
W7 
148 
169 
170 
vi 
172 
173 
174 
175 
176 
17? 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
168 
189 
190 
192 
195 
196 
197 
198 
199 
200 
210 
220 
230 
270 
280 
290 
300 
310 
320 
325 
$26 
330 
a5 
340 
450 
360 
365 
366 
370 
380 
390 
400 
410 
420 
430 
a4 
44s 
450 
460 
470 
480 
470 
500 
510 
520 
530 
540 
999 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"10,000 TO 30,000 HILES AND AT ITS PRESENT VELOCITY CAN“ 
“CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HOURS." 


“UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE so” 

“YOU ARE UNABLE TO SEE THEN, BUT WITH A SPECIAL” 
“INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR" 
“PHOTON BOMB EXPLODED. YOU HAVE SEVER HOURS UNTIL THEY” 
“HAVE BUILT UP SUFFICIENT POWER IN ORDER 10 ESCAPE“ 
“YOUR PLANET‘’S GRAVITY." 


“YOUR PLANET HAS EWOUGH POUER TO FIRE ONE BOKB AN HOUR." 


“AT THE BEGINNING OF EACH HOUR YOU WILL BE ASKED TO GIVE AN" 
PRINT “ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS OF” 

PRINT "100 HILES (BETWEEN 100 AND 300), AFTER WHICH YOUR BONB’S* 
PRINT “DISTANCE FROM THE ENEMY SHIP WILL BE GIVEN," 


PRINT 

PRINT “AN EXPLOSION UITHIN 5,000 MILES OF THE ROMULAN SHIP“ 
PRINT “WILL DESTROY IT.“ 

PRIWT 

PRINT “BELOU IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT.* 
PRINT 

PRINT 

PRINT " 90" 

PRINT * “ 

PRINT “ 0000000000000" 

PRINT ° 0000000000000000000" 

PRINT “ 000000 000000" 

PRINT * 00000 00000" 
PRINT * 00000 XXXXXXXXAXX 00000" 
PRINT ° 00000 XXXXXXXXXXKXX 00000" 
PRINT “ 0000 XXX XX KXXAXKAXKX 0000" 
PRINT * 0000 XXXXAXAXKXXXAKAXX 6000" 
PRINT * 0000 AXXXXAXXXXXAXAXAXXK 0000" 
PRINT "180<== 00000 XXAAXAKAXKXXAXAXAXK 00000 ==>0" 
PRINT ° 0000 AXXXXXXAXXXXAXAAAXX 0000" 
PRINT * 0000 XXXAAXAXAKAXAKAAAX 0000" 
PRINT “ 0000 XXXXXXXAAAXAAXK 0000” 
PRINT " 00000 XXXXXXKXXXXXX 00000" 
PRINT “ 00000 XXXXXAXXAXK 00000" 
PRINT " 00000 00000" 
PRINT “ 000000 000000" 

PRINT ” 0000000000000000000" 

PRINT * 0000000000000" 

PRINT ° " 

PRINT " 270" 

PRINT 

PRINT "X ~ YOUR PLANET" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT “GOOD LUCK. 
ARINT(S60#RND(1)) 
D=INT(200#RND(1)+200) 
ReINT(200RND(1)410) 
H=O 

IF H=7 THEN 490 

HEHtS 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
PRINT 
ASAER 
IF A<360 THEN 400 

AZA-360 

T=ABS(A-Al) 

IF 1<180 THEN 430 

T#360-T 

C=SOR(DoD+D14D1-29D4D14C0S(143.14159/180)) 

PRINT "YOUR PHOTON BOMB EXPLODED’ ;C3"*10°2 MILES FROM THE" 
PRINT “ROMULAN SHIP.” 

IF C<#50 THEN 470 

GOTO 310 

PRENT “YOU HAVE SUCCESFULLY COMPLETED YOUR MISSION." 

GOTO 500 

PRINT “YOU HAVE ALLOWED THE ROHULANS TO ESCAPE.” 

PRINT "ANOTHER ROHULAN SHIP HAS GONE INTO ORBIT." 

PRINT "BO YOU WISH TO TRY TO DESTROY IT"; 

INPUT C$ 

IF C$="YES" THEN 270 

PRINT "GOOD BYE." 

END 


"Q - THE ORBIT GF THE ROMULAN SHIP” 


“ON THE ABOVE DIAGRAH, THE RONULAN SHIP IS CIRCLING" 
“COUNTERCLOCKWISE AROUND YOUR PLANET. DON’T FORGET" 
“WITHOUT SUFFICIENT POWER THE ROMULAN SHIP‘’S ALTITUDE" 
“AND ORBITAL RATE WILL REMAIN CONSTANT." 


THE FEDERATION IS COUNTING ON YOU." 


“HOUR";H}", AT WHAT ANGLE DO YOU WISH TO SEND" 
“YOUR PHOTON BON"; 

al 

“HOU FAR OUT DO YOU WISH TO DETONATE IT"; 

Dt 


In this game, you take orders for 
pizzas from people living in Hyattsville. 
Armed with a map of the city, you must 
then tell your delivery boy the address 
where the pizza is to be delivered. If the 
pizza is delivered to the correct ad- 
dress, the customer phones you and 
thanks you; if not, you must give the 
driver the correct address until the 
pizza gets delivered. 

Some interesting modifications 
suggest themselves for this program 
such as pizzas getting cold after two 
incorrect delivery attempts or taking 
three or more orders at a time and 
figuring the shortest delivery route. 
Send us your modifications! 

This program seems to have sur- 
faced originally at the University of 
Georgia in Athens, Georgia. The 
author is unknown. 


PIZZA 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


PIZZA DELIVERY GAME 
WHAT IS YOUR FIRST NAME? DARTH 
HI, DARTH, IN THIS GAME YOU ARE TO TAKE ORDERS 


FOR PIZZAS. THEN YOU ARE TO TELL A DELIVERY BOY 
WHERE TO DELIVER THE ORDERED PIZZAS. 


NAP OF THE CITY OF HYATTSVILLE 
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THE ABOVE IS A HAP OF THE HOMES WHERE 
YOU ARE TO SEND PIZZAS. 


YOUR JOB IS TO GIVE A TRUCK DRIVER 
THE LOCATION OR COORDINATES OF THE 
HOME ORDERING THE PIZZA. 


DO YOU NEED NORE DIRECTIONS? YES 


SOMEBODY WILL ASK FOR A PIZZA TO BE 
DELIVERED, THEN A DELIVERY BOY WILL 
ASK YOU FOR THE LOCATION. 

EXANPLEs 
THIS IS J. PLEASE SEND A PIZZA. 
DRIVER TO DARTH. WHERE DOES J LIVE? 
YOUR ANSWER WOULD BE 2,3 


UNDERSTAND? YES 
GOOD. YOU ARE NOW READY TO START TAKENG ORDERS. 


GOOD LUCK!S 


HELLO DARTH’S PIZZA. THIS IS D. PLEASE SEND A PIZZA. 
BRIVER TO DARTH. WHERE DOES D LIVE? 4,1 
HELLO DARTH. THIS IS D, THANKS FOR THE PIZZA. 


HELLO DARTH’S PIZZA. THIS IS 0. PLEASE SEND A PIZZA. 
DRIVER TO DARTH. WHERE DOES 0 LIVE? 3,4 
HELLO DARTH. THIS IS 0, THANKS FOR THE PIZZA. 


HELLO DARTH’S PIZZA. THIS IS N. PLEASE SEND A PIZZA. 
DRIVER TO DARTH. WHERE DOES W LIVE? 4,2 

THIS IS H. I DID NOT ORDER A PIZZA. 

L LIVE AT 4, 2 
DRIVER TO DARTH. UHERE DOES N LIVE? 2,4 

HELLO DARTH. THIS IS N, THANKS FOR THE PIZZA. 


HELLO DARTH’S PIZZA. THIS IS J. PLEASE SEND A PIZZA. 
DRIVER TO DARTH. WHERE DOES J LIVE? 2,3 

HELLO DARTH. THIS IS J, THANKS FOR THE PIZZA. 

HELLO DARTH’S PIZZA. THIS IS F. PLEASE SEND A PIZZA. 
DRIVER TO DARTH. WHERE DOES F LIVE? 2,2 

HELLO DARTH. THIS IS F, THANKS FOR THE PIZZA. 

DO YOU WANT TO DELIVER MORE PIZZAS? NO 


Q.K. DARTH, SEE YOU LATER! 


5 PRINT TAB(33) ¢"PIZZA" 510 
10 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 520 
15 PRINT: PRINT: PRINT 530 
20 DIM S$(16),N8(4) 540 
30 PRINT “PIZZA DELIVERY GAHE"s PRINT 550 
50 INPUT "WHAT IS YOUR FIRST NAME"SNS: PRINT 590 
80 PRINT "HI, "SNS$;". IN THIS GANE YOU ARE TO TAKE ORDERS" 600 
90 PRINT "FOR PIZZAS, THEN YOU ARE T@ TELL A DELIVERY BOY" 610 
100 PRINT "WHERE TO DELIVER THE ORDERED PEZZAS.“: PRINT: PRINT 620 
140 FOR I=1 T0 14 640 
150 READ S8(1) 650 
160 NEXT I 660 
170 FOR I=t To 4 670 
180 READ HS(T) 680 
190 NEXT I 685 
200 DATA ar Se Ss PAD | a A OR A Ql Oe 690 
210 DATA of ara Rr a 700 
230 PRINT “HAP OF THE CITY OF HYATTSVILLE": PRINT 750 
250 PRINT " ----- fenn= Qronnm Bonne fnwnee ” 760 
260 K=4 770 
270 FOR I=1 TO 4 775 
280 PRINT "-"s PRINT °-"s PRINT'-": PRINT "=" 780 
320 PRINT MS(K)S 790 
330 SI=16~4eI+1 870 
340 PRINT " "sS¢(S1)3" “sss (Si41)s" "s99(G1+2) 3" us 880 
350 PRINT S$(St+3)3" "SHS CH) 890 
380 K=K-1 900 
390 NEXT I 910 
400 PRINT "~"s PRINT "-"s PRINT “-"s PRINT "~" 920 
440 PRINT * ----- fo---- Qeone> J----- Arnn ne ": PRINT 930 
460 PRINT "THE ABOVE IS A HAP OF THE HOMES WHERE" 940 
470 PRINT "YOU ARE TO SEND PIZZAS.": PRINT 960 
490 PRINT "YOUR JOB IS TO GIVE A TRUCK DRIVER” 970 
500 PRINT "THE LOCATION OR COORDINATES OF THE" 999 
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me ee 


PRINT "HOME ORDERING THE PIZZA.": PRINT 

INPUT “DO YOU NEED HORE DIRECTIONS" ;AS 

IF A$="YES" THEN 590 

IF AS="NO" THEN 750 

PRINT °°YES’ OR “NO” PLEASE, NOW THEN,": GOTO 520 

PRINT: PRINT "SONEBODY WILL ASK FOR @ PIZZA TO BE” 

PRINT "DELIVERED. THEN A DELIVERY BOY WILL" 

PRINT “ASK YOU FOR THE LOCATION. ": PRINT " EXAHPLE =" 
PRINT "THIS IS J. PLEASE SEND A PIZZA." 

PRINT "DRIVER TO "3NS;". WHERE DOES J LIVE?" 

PRINT "YOUR ANSVER WOULD BE 2,3": PRINT 

INPUT "UNDERSTAND" SAS 

IF AS="YES" THEN 690 

PRINT "THIS JOB IS DEFINITELY 100 DIFFICULT FOR YOU. THANKS ANYWAY" 
GOTO 999 

PRINT “GOOD. YOU ARE NOW READY TO START TAKING ORDERS.": PRINT 
PRINT "GOOD LUCK! I": PRINT 

FOR I=1 TQ 5 

SSINTCRND(f 4164108 PRINT 

PRINT “HELLO "3N$3"’S PIZZA, THIS IS "sS9(S)3","s 

PRINT " PLEASE SEND A PIZZA." 

PRINT " DRIVER TO "3N$}". WHERE DOES "sS$(S)s" LIVE": 
INPUT A(1),A(2) 

T2ACT)#(AC2) 1) #4 

IF T=$ THEN 920 

PRINT “THIS IS "3S$(7)3°. I DID NOT ORDER A PIZZA." 
PRINT "I LIVE AT "SACHS", "3A(2) 

GOTO 780 

PRINT "HELLO “N$;". THIS IS “3S$(S)3", THANKS FOR THE PIZZA." 
NEXT I 

PRINT: INPUT "DO YOU WANT TO DELIVER HORE PIZZAS":A$ 

TF AS="YES" THEN 750 

PRINT: PRINT "O.K. "SNS$;", SEE YOU LATER!” 

END 


Poetry 


This program produces random 
verse which might loosely be con- 
sidered in the Japanese Haiku style. It 
uses 20 phrases in four groups of five 
phrases each and generally cycles 
through the groups in order. It inserts 
commas (random — 19% of the time), 
indentation (random — 22% of the 
time), and starts new paragraphs (18% 
probability, but at least once every 20 
phrases). 

The phrases in POETRY are 
somewhat suggestive of Edgar Allen 
Poe. Try it with phrases from computer 
technology, from love and romance, 
from four-year-old children, or from 
some other subject. Send us the out- 
put. 


to try: 

Carpet of ferns 
Morning dew 
Tang of dawn 
Swaying pines 
Entrances me 
Soothing me 
Rustling leaves 
Radiates calm 


10 PRINT TAB(30)3"POETRY® 
20 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
JO PRINTSPRINTSPRINT 

90 ON I GOTO 100,101,102,103, 104 

100 PRINT "MIDNIGHT DREARY":G0TO 210 
101 PRINT "FIERY EYES"s:G0TO 210 

102 PRINT “BIRD OR FIEND"; GOTO 210 
103 PRINT "THING OF EVIL"}:GOTO 210 
104 PRINT "PROPHET": :GOTO 210 

110 ON I GOTO 111,112,113,114, 115 

HI PRINT "BEGUILING HE"$:U=2:G0TO 210 
112 PRINT “THRILLED HE"s:GOTO 210 

113 PRINT “STILL SITTING....°¢:G0TO 212 
114 PRINT "NEVER FLITTING"ssU=2:60T0 210 
115 PRINT “BURNED°s:60TO 210 

120 ON I GOTO 121,122, 123,124,125 

121 PRINT "AND MY SOUL“ s:6OTO 210 

122 PRINT “DARKNESS THERE"::60T0 210 
123 PRINT "SHALL BE LIFTED"::G0TO 210 
124 PRINT “QUOTH THE RAVEN": :G0T0 210 
125 IF U=0 THEN 210 

126 PRINT “SIGN OF PARTING";:GOTO 210 
130 OH I GOTO 131,132,133, 134, 135 

131 PRINT “NOTHING MORE";:GOTO 210 

132 PRINT “YET AGAIN"? :GOTO 210 

133 PRINT “SLOWLY CREEPING"; :60T0 210 
134 PRINT °...EVERMORE"$:GOTO 210 

135 PRINT "NEVERHORE": 

210 IF U=0 OR RND(1)>.19 THEN 212 

211 PRINT ","S2U=2 

212 IF RND(1.65 THEN 214 

213 PRINT " “srU=U+1260T0 215 

214 PRINT : U=0 

215 L=INTCINT(1O8RND(1))/2)41 

220 JeJ+1 : K=K+t 

230 IF U0 OR INT(U/2)<>J/2 THEN 240 
235 PRINT ” me 

240 ON J GOTO 90,110,120, 130,250 

250 J=0 : PRINT : IF K>20 THEN 270 

260 GOTO 215 

270 PRINT : U=0 : K=O + GOTO 110 

999 END 


Here are some phrases from nature 


Mighty Oaks 

Grace and beauty 
Silently singing 
Nature speaking 
Untouched, unspoiled 
Shades of green 
Tranquility 

...80 peaceful 


The original author of this program is 
unknown. It was modified and rework- 
ed by Jim Bailey, Peggy Ewing, and 
Dave Ah! at DEC. 


POETRY 
CREATIVE CONPUTING MORRISTOWN, NEW JERSEY 


MIDNIGHT DREARY FIERY EYES, STILL SITTING.... 
DARKNESS THERE 

NOTHING HORE 
PROPHET, NEVER FLEITTING, SHALL BE LIFTED YET AGAIN 


PROPHET 
HEVER FLITTING QUOTH THE RAVEN 
SLOWLY CREEPING 
FIERY EYES 
BEGUILING HE, SIGN OF PARTING 
NEVERHORE 
MIDNIGHT DREARY 
THRILLED ME QUOTH THE RAVEN ...EVERMORE 


THRILLED ME BIRD OR FIEND 
BURNED 
DARKNESS THERE .. EVERMORE 


PROPHET BEGUILING HE 
DARKNESS THERE YET AGAIN 
MIDNIGHT DREARY 
STILL SITTING.... QUOTH THE RAVEN, NOTHING HORE 
BIRD OR FIEND 
BURNED SIGN OF PARTING NOTHING HORE 
MIDNIGHT DREARY 
STILL SITTING.... 
QUOTH THE RAVEN NEVERMORE 


STILL SITTING... 
MIDNIGHT DREARY STILL SITTING.... 
AND MY SOUL 

YET AGAIN 


PROPHET THRILLED NE, SIGN OF PARTING, 
oe EVERHORE 
BIRD OR FIEND, STILL SITTING.... 
YET AGAIN 
THING OF EVIL BURNED 
DARKNESS THERE NEVERMORE, 
THING OF EVIL 
BEGUILING ME SIGN OF PARTING ...EVERNORE 
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Peker 


You and the computer are opponents 
in this game of draw poker. At the start 
of the game, each player is given $200. 
The game ends when either player runs 
out of money, although if you go broke 
the computer will offer to buy your 
wristwatch or diamond tie tack. 

The computer opens the betting 
before the draw; you open the betting 
after the draw. If you don’t have a hand 
that’s worth anything and you want to 
fold, bet 0. Prior to the draw, to check 
the draw, you may bet .5. Of course, if 
the computer has made a bet, you must 
match it in order to draw or, if you have 
a good hand, you may raise the bet at 
any time. 

The author is A. Christopher Hall of 
Trinity College, Hartford, Connecticut. 


POKER 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


WELCOKE TO THE CASINO. WE EACH HAVE $200 

I WILL OPEN THE BETTING BEFORE THE DRAW; YOU OPEN AFTER 
WHEN YOU FOLD, BET 0; TO CHECK, BET .5 

ENOUGH TALK -~ LET‘S GET DOWN TO BUSINESS 


THE ANTE IS 95. I WILL DEAL 


YOUR HAND: 
1 -- JACK OF SPADES 2 -~ QUEEN OF SPADES 
3 -- 4 OF SPADES 4 -- J OF SPADES 


5 -- QUEEN OF DIAMONDS 


T CHECK 
WHAT IS YOUR BET? 5 
I’LL SEE You 


NOU WE DRAW -- HOW HANY CARDS DO YOU WANT? 1 
WHAT ARE THEIR NUMBERS 


75 

YOUR NEW HAND: 
{1 -- JACK OF SPADES 2 ~~ QUEEN OF SPADES 
J-- 4 OF SPADES 4-- 9 OF SPADES 
S-- 3 OF HEARTS 


T AM TAKING 3 CARDS 
WHAT IS YOUR BET? 5 
I‘LL SEE YOU, AND RAISE YOU 8 
WHAT IS YOUR BET? 8 


NOW WE COMPARE HANDS 


MY HAND: 
6-~ 3 OF CLUBS 
7 -- 5 OF HEARTS 8 ~~ QUEEN OF CLUBS 
9 ~~ QUEEN OF HEARTS 10 -- ACE OF SPADES 


YOU HAVE A PAIR OF 35 

AND I HAVE A PAIR OF QUEENS 
THE HAND IS DRAWN 

ALL $ 46 REMAINS IN THE POT 


THE ANTE 18 $5. I UILL DEAL 


YOUR HAND: 


1-- 8 OF CLUBS 2-- 7 OF SPADES 
J-- 6 OF HEARTS 4~-- 2 OF CLUBS 
S-- 3 OF DIAMONDS 


I*LL OPEN WITH 28 
WHAT IS YOUR BET? 0 


I UIN 
NOU T HAVE $ 228 AND YOU HAVE $ 172 
BO YOU WISH TO CONTINUE? YES 
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THE ANTE 1S $5. I WILL DEAL 


YOUR HAND: 


1 -~ ACE OF CLUBS 2 ~- QUEEN OF CLUBS 
3 -- KING OF CLUBS 4-- 7 OF CLUBS 
3S -- 2 OF SPADES 

1 CHECK 


WHAT IS YOUR BET? 5 
I‘LL SEE You 


NOW WE DRAW ~~ HOW HANY CARDS DO YOU WANT? 1 
WHAT ARE THEIR NUMBERS 


735 
YOUR WEU HAND: 

1 -- ACE OF CLUBS 2 -- QUEEN OF CLUBS 
a -- KING OF CLUBS 4-- 7 OF CLUBS 
S-- 5 OF CLUBS 


TAN TAKING 1 CARD 

WHAT IS YOUR BET? 100 

TYLL SEE YOU, AND RAISE YOU 101 
WHAT IS YOUR BET? 101 


YOU CAN’T BET UITH WHAT YOU HAVEN’T GOT 
WOULD YOU LIKE TO SELL YOUR WATCH? YES 
T’LL GIVE YOU $75 FOR IT 

WHAT IS YOUR BET? 101 


NOW WE COHPARE HANDS 


HY HAND: 

&-~ 6 OF CLUBS 

7 ~- & OF DIAMONDS @-- 6 OF CLUBS 
9 ~~ 9 OF SPADES 10 -- 9 OF CLUBS 


YOU HAVE A FLUSH IW CLUBS 

AWD T HAVE TUO PAIR, 95 

YOU WIN 

NOW I HAVE $ 17 AND YOU HAVE $ 458 
DO YOU WISH TO CONTINUE? YES 


THE ANTE IS $5. IF WILL DEAL 


YOUR HAND: 

1 -- JACK OF SPADES 2-- 4 OF CLUBS 

3 ~~ ACE OF CLUBS 4 -~ QUEEN OF CLUBS 
S-- 5 OF HEARTS 

1 CHECK 


WHAT IS YOUR BET? 5 
ILL SEE YOU 


NOW WE BRAY ~~ HOU MANY CARDS DO YOU WANT? 2 
WHAT ARE THEIR NUMBERS 


22 
75 
YOUR NEW HAND: 

1 -- JACK OF SPADES 2-- S$ OF CLUBS 
3-~ ACE OF CLUBS 4 ~~ QUEEN OF CLUBS 
S7- 9% OF DIANGNDS 


TAM TAKING 1 CARD 
WHAT IS YOUR BET? S 
ILL SEE You 


NOW UE COMPARE HANDS 


NY HAND: 

6-- 3 OF HEARTS 

2? ~~ 6 OF HEARTS B-~ 7 OF HEARTS 
9 -- 9 OF CLUBS 10 -- ACE OF HEARTS 


YOU HAVE SCHNALTZ, ACE HIGH 
AND I HAVE SCHMALTZ, ACE HIGH 
THE HAND IS DRAWN 

ALL $ 30 REMAINS IN THE POT 


I’M BUSTED. CONGRATULATIONS! 


2 
4 


PRIRT TAB(32); "POKER" 


GOSUB 3690 

IF B>U THEN 670 

IF U>B THEN 780 

IF H$="A FLUS" THEN 1700 


2 IF FNB(M)<FNB(D) THEN 780 


IF FHBCM)>ENB(D) THEN 670 

PRINT “THE HAND IS DRAWN® 

PRINT “ALL $"P"REMAINS IN THE POT" 
GOTO 140 

If FNBCH)>FNB(D) THEN 470 

IF FNBCD)>FNB(H) THEN 780 

BOTO 1670 

reyes 
ACZ=10O#INT (44RND C1) )+INTCLOO#RND GT) 
IF INT(A(Z}/100}93 THEN 1740 

IF A(Z)-100%INT(A(Z)/100)312 THEN 1740 
IF Z=1 THEN 1840 

FOR Ket TO Z~t 

IF ACZ)=ACK) THEN 1740 

NEXT K 

IF Z<=10 THEN 1840 

NEACU) 

ACUIEA(Z} 

A(Z)=H 

RETURN 

FOR 2=N TO Ne4 

PRINT 
GOSUB 
PRINT " OF"s 

GOSUB 2070 

IF Z/2<>INT(Z/2) THEN 1920 
PRINT 

NEXT Z 

PRINT 

RETURN 

KEFNB(A(Z)) 

IF Ki>9 THEN 1980 
PRINT "JACK" 

IF K<>10 THEN 2000 
PRINT "QUEEN"? 

IF Kit THEN 2020 
PRINT "KING"? 

IF KO>12 THEM 2040 
PRINT "ACE"; 

IF K>=9 THEN 2060 
PRINT 423 

RETURN 

KEINT(ACZ)/100) 

IF K6>0 THEN 2100 
PRINT " CLUBS", 

IF Keo THEN 2120 
PRINT “ DLAMONDS", 

IF KO>2 THEN 2140 
PRINT “ HEARTS", 

IF KO>3 THEN 2160 
PRINT " SPADES", 
RETURN 

u=0 

FOR Z=N TO Nea 
B(Z)FNB(A(Z)) 

IF Z5H+4 THEN 2230 


Mee 
z ; 


1950 


TF INT CACZ)/100)S5 INT(A(Z+1)/100) THEN 2230 


U=Ut] 

NEXT 2 

IF U<?4 THEN 2310 
X=11ttt 


PRINT TABCISHS"CREATIVE COMPUTING MORRIGTOUM, NEW JERSEY" 
6 PRINTS PRINTS PRINT 

10 DIK At50), B15) 

20 DEF ENACX}=INT(1OERND CL) 

30 DEF FNBCX)=X-100#INI(X/100) 

40 PRINT “WELCOME TO THE CASINO. WE EACH HAVE $200" 

SO PRINT "I WILL OPEN THE BETTING BEFORE THE DRAWS YOU OPEN AFTER" 

40 PRINT "WHEN YOU FOLD, BET 0; TO CHECK, BET .5" 

20 PRINT “ENOUGH TALK -- LETS GET DOWN TD BUSINESS" 

GO PRINT 900 PRINT “WHAT ARE THEIR HUMBERS" 

90 LET Ost 910 FOR O=1 10 T 

100 LET C2200 300 NUT 

110 LET 85200 930 GOSUE 1730 

120 LET P=0 240 NEXT @ 

130 REH 950 PRINT “YOUR NEW HAND!" 

140 PRENT wo 940 Nal 

150 IF Cé=5 THEN 347 cup ies 

160 PRINT "THE ANTE IS $5. f WILL DEAL" a et 

170 PRINT 990 FOR U=6 TO 10 

180 IF S25 THEN 200 4000 IF INT(X/10°(U6)) Cs LOHINTOX/10°(U-5)) THEN 1020 
190 GOSuB 3850 1010 GOSUE 1730 

200 LET P=P+10 1020 NEXT U 

210 LET $=$-5 1030 PRINT 

aie coe jet an 10 1040 PRINT "I AM TAKING"Z-10-T"CARD"; jap 
oao bosus 1740 1050 IF Z=t141 THEN 1090 tae 
250 NEXT Z 1060 PRINT °S" 1650 
: eouynje wayne 1070 PRINT tho 
OPO UN BANDE 1080 GOTO 4100 hee 
280 SOSUB 1850 Veo el 1664 
vue be 
400 122 1110 v= 1600 
310 GOSUB 2170 20 Is 1490 
1120 GoSUB 2170 

320 PRINT 1700 
Bio IF 1656 THEM 470 eo ne 1710 
340 IF FNACOD<=? THEN 370 =D 2 
350 LET X=11100 190 og THEN 1190 1730 
360 GOTO 420 1180 SOTO 1320 1740 
470 LF FMACO)<=7 THEN 400 1190 TF LGes THEN 1220 1750 
380 LET X=11110 1000 det 1760 
390 GOTU 420 to10 GOTO 1330 1765 
400 IF FNA(O))=1 THEN 450 1220 IF Udeid THEN 1270 1770 
AiO X=tt111 1290 722 1780 
420 Is? 1240 IF FNA(O) <>6 THEN 1260 1790 
430 1-23 1950 1219 1800 
440 GOTO 380 1260 GOTO 1330 180 
450 251 1270 IF U>=16 THEN 1320 : 
440 GOTO S10 1380 7219 1830 
470 Tf Wests THEN 540 1200 IF FRA(O)<>8 THEN 1310 1840 
490 IF FNA(O)>=2 THEN 500 1300 2211 1850 
490 OTR 420 1310 GOTO 1330 1860 
500 2-0 1320 122 1870 
510 K=0 _ 1330 Keo 1880 
520 PRINT “I CHECK" 1340 GUSUB 3050 1890 
330 GOTO 62000 1350 IF TC3.5 THEN 1450 1700 
BAO TF USs1e THEN 570 1360 IF Y=? THEW 1400 a 
S50 zee 1370 IF 1434 THEN 1400 1720 
540 IF FNACO))=1 THEN 580 1390 PRINT “I'LL CHEEK 1930 
370 Teas 1390 GOTO 1460 1940 
580 V=Z4FHACO) 1400 VeZ4ENACO) 1950 
590 S0SUB 3480 TA10 GOSUB 3480 1960 
600 PRINT "E°LL OPEN WITH "Y 1420 PRINT "ILL BET"Y 1970 
610 Ks¥ 430 key 1980 
620 GOSUB 3050 +440 GOSUB 3060 1990 
630 GOSUB 650 1450 BOSUB 650 2000 
440 GOTO 820 430 PRINT 2010 
O30 IF Teed THEN 760 1470 PRINT "ROW UE COMPARE HANDS” 2020 
60 PRINT tia JseHs 2030 
570 PRINT "I WIN" 490 keels 2040 
680 CeCtP ; A vn 2 
90 PRINT “HUW I HAVE $*C°AND YOU HAVE $"S tet wa HY HAND: 2060 
200 PRINT "DO YOU WISH TO CONTINUES 1520 BOSUB 1950 2070 
210 INPUT HE 1530 eI 2080 
720 IF HS="YES" THER 120 1540 GOSUB 2170 2090 
230 1F He="NO" THEN atod 1550 PRINT 2400 
240 PRINT "ANSWER YES OR ND, PLEASE.” 1560 PRINT “YOU HAVE "5 M10 
750 GOTO 700 1570 kop 2120 
760 IF 1034 THEN @10 1580 BOSUB 3690 2130 
270 PRINT 1590 Hoes a 
280 PRINT “YOU WIN" 1s00 Tee 2150 
290 S2S4P 2160 
770 § 1410 KeH 16 
B00 GOTO 670 1620 PRINT “AND [HAVE "s au 
810 RETURN 180 
G20 PRINT 2190 
230 PRINT “HOW UE DRAW -- HOM many CARDS DO YOU WANTS; 2300 
40 INPUT T 2210 
50 IF T=0 THER 980 2220 
240 Z=10 2230 
70 IF 144 THER 900 2240 
880 PRENT "YOU CAN’? DRAW HURE THAN THREE CARDS" 3250 
890 GOTO 640 2260 
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D=ACN) 


HS="A FLus" 

Tee"H IN" 

U=15 

RETURN 

FOR Z=N TO N+3 

FOR K=Z+1 TO N+4 

TF BCZ)<=B(K) THEN 2399 
X=A(Z) 

ACZI=A(K) 

B(Z)=B(K) 

ACK}EX 
BEKIBACK)~1004INT (ACK) /100) 
NEXT K 

NEXT Z 

X=0 

FOR Z=N TO N+3 

IF B(Z)S>B(Z4+1) THEN 2470 
X=X+11#10° (Z-N) 

D=A(Z) 

GOSUB 2760 

NEXT Z 

IF X<s0 THEN 2620 

IF BON) +3<2B(Nt3) THEN 2520 
Xe 

u=10 

IF BON+})43<>B(N+4) THEN 2620 
IF U<>10 THEN 2400 

uF14 

He="STRAIG" 

Ig2"HT" 

X2v1tt1 

D=A(N+4) 

RETURN 

U=10 

X=tit1¢ 

IF U>=10 THEN 2690 
D=ACN+4) 

HS="SCHMAL" 

Ig=2"7Z, " 

U=9 

X=11000 

GOTO 2740 

IF US>1O THEN 2720 

If [21 THEN 2740 

GOTO 2750 

IF U>t2 THEN 2750 

IF FRE(D}>4 THEN 2750 
1=6 

RETURN 

IF U>=11 FHEN 2810 

U=tt 

HS="A PAIR" 

Ig=" OF " 

RETURN 

IF U<s11 THEN 2910 

IF B(Z)¢>B(Z-1) THEN 2870 
H$="THREE" 

ige" " 

ve13 

RETURN 

Hs="TWO P" 

Is="AIR, 

U=12 

RETURN 

IF Ust2 THEN 2760 

U=164 

H$="FULL H" 

I$="QUSE, " 

RETURN 

IF B(Z)<>B(Z-1) THEN 3010 
u=17 

HS="FOUR" 

igs" 0 

RETURN 

UF16 

H$="FULL HW" 

T$="QUSE, " 

RETURN 

G=0 

PRINT “WHAT IS YOUR BET"; 
INFUT T 

IF T~INT(T)=0 THEN 3140 
IF Ke>Q THEN 3120 

IF G¢>0 THEN 3120 

IF T=.5 THEN 3410 


PRINT "NO SMALL CHANGE, PELASE” 


GOTO 3060 

IF S-G-T:=0 THEN 3170 
GOSUB 3870 

GOIO 3060 

TF T<30 THEN 3200 

f=3 


AG) 
AQAY 
4gio 
40ev 
AQ70 
40ae 
4090 
A100 
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GOTO Jase 
LF G+T2k THEN 32.40 


PRINT “IF YOU CAN YT SEE MY BET, THEN FOLD" 


GOTO 4040 

G=G+T 

IF G=k THEN 3380 
IF Z<>t THER 3420 
IF G°9 THEN 3300 
IF Z3=2 THEN 3350 
Vea 

GOTO 3420 

LF Z=1 THEN 3320 


TF Tc=25 THEN 3350 
[=4 

PRINT “I FOLB" 
RETURN 

IF Z2=2 THEN 3430 
PRINT "ILL SEE YOU" 
K=G 

$=§-6 

C=C-K 

PEP+GtK 

RETURN 

IF G53#Z THEN 3350 
VEG-K+FNA(O) 

GOSUB $480 


PRINT "I°LL SEE YOU, AND RAISE yYou"y 


keGHY 
GOTO 3060 


IF €-G~V>=0 THEN 3640 


IF G<>0 THEN 3920 
V=C 

RETURN 

IF C+G>=0 THEN 3340 


TF (O/2)¢>2ENT(O/2) THEN 3400 


PRINT "WOULD YOU LIKE TO BUY BACK YOUR WATCH FOR $50"; 


INFUT J¢ 

IF J$="NO" THEN 3600 
C=C+50 

0=0/2 

RETURN 


TF Q/3221NT(O/3) THEN 3670 
PRINT "WOULD YOU LIKE TO BUY BACK YOUR TIE TACK FOR 450"; 


INPUT US 
IF J$="NO" THEN 3470 
ceC+50 

a20/3 

RETURN 

PRINT "I°H BUSTED. 
STOP 

PRINT HESI3¢ 


IF H$<>"A FLUS" THEN 3.750 


K=INTCK/100) 
GOSUB 2080 
PRINT 

RETURN 
K=FNB(K) 
GOSUB 1960 


IF H$="SCHMAL" THEN 3790 
IF H$<e"STRAIG" THEN 3810 


PRINT " HIGH" 
RETURN 

PRIAT "Ss" 
RETURN 

PRINT 


PRIRT "YOU UVAN’T BEE WITH WHAT YOU HAVEN'T GOT" 
IF Of2=INT(O/2) THEN 3970 


CONGRATULATIONS E" 


PRINT "WOULD YOU LIKE TO SELL YOUR WATCH"; 


INPUT J$ 
IF J$="NO" THEN 3970 


IF FNA(O)+=? THEN 3930 


PRINT "ILL GIVE YOU $75 FOR IT" 


Q $9475 


GOIO 3950 


PRENT “THATS @ PRETTY CRUMNY WATCH - ILL GIVE YOU §25° 


G=9425 
O=042 
RETURN 


LF Ofc: INTCO/9) THEN 4090 
PRINT "WILL YOU PART WITH THAT DIAMOND TIE TACK": 


INFUT J 
IF J$="NO" THEN 4080 


IF FNA(O)2=4 THEN 49050 


FRINT “YOU ARE ROW #100 RICHER" 


S=G4+100 

GUTG 4070 

PRINT “ITS PASTE. 
$2$+25 

O=04+3 

RETURN 


PRINT "YOUR WAD IS SHOT. 


END 


SO LONG, SUCKER!® 
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This game is based on the permissi- 
ble moves of the chess queen — i.e., 
along any vertical, horizontal, or 
diagonal. In this game, the queen can 
only move to the left, down, and 
diagonally down to the left. 

The object of the game is to place the 
queen (one only) in the lower left-hand 
square (no. 158), by alternating moves 
between you and the computer. The 
one to place the queen there wins. 

You go first and place the queen in 
any one of the squares on the top row 
or the right-hand column, That is your 
first move. The computer is beatable, 
but it takes some figuring. See if you 
can devise a winning strategy. 


QUEEN 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DO YOU WANT INSTRUCTIONS? YES 

WE ARE GOING TO PLAY A GAME BASED GN ONE OF THE CHESS 
MOVES. OUR QUEEN WILL BE ABLE TO HOVE ONLY TO THE LEFT, 
DOWN, OR DIAGONALLY DOWN AND TO THE LEFT. 


THE OBJECT OF THE GAME IS TO PLACE THE QUEEN IN THE LOWER 
LEFT HAND SQUARE BY ALTERNATING MOVES BETWEEN YOU AND THE 
COMPUTER. THE FIRST ONE TO PLACE THE QUEEN THERE WINS. 


YOU GO FIRST AND PLACE THE QUEEN IN ANY ONE OF THE SQUARES 
ON THE TOP ROW OR RIGHT HAND COLUHN. 

THAT WILL BE YOUR FIRST HOVE. 

WE ALTERNATE HOVES. 

YOU HAY FORFEIT BY TYPING “0” AS YOUR HOVE. 

BE SURE TO PRESS THE RETURN KEY AFTER EACH RESPONSE. 
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81071 61 St 4b 3) 2bon 


92 82 72 62 352 42 32 22 


03 93° 83 73 63 33 43°33 


14 104 94 84 74 64 54 44 


125° 115 105 95 85 75 65 55 


136 126 116 106 96 86 746 66 


47) 137—(:127) «117 «107 97) «87? 77 


198 148 #138 128 #118 108 98 688 


WHERE WOULD YOU LIKE TO START? 44 
COMPUTER KOVES TO SQUARE 55 

WHAT IS YOUR HOVE? 65 

COMPUTER HOVES TO SQUARE 75 

WHAT 18 YOUR NOVET 85 

COMPUTER MOVES TO SQUARE 127 

WHAT IS YOUR HOVE? 138 

COMPUTER KOVES TO SQUARE 158 


NICE TRY, BUT IT LOQKS LIKE I HAVE WON, 
THANKS FOR PLAYING. 


ANYONE ELSE CARE TO TRY? YES 
WHERE WOULD YOU LIKE TO START? 31 
COMPUTER HOVES TO SQUARE 75 

WHAT IS YOUR HOVE? 95 ~~ 
COMPUTER HOVES TO SQUARE 158 


NICE TRY, BUT IT LOQKS LIKE I HAVE WON. 
THANKS FOR PLAYING. 


ANYONE ELSE CARE TO TRY? NO 


OK ~~~ THANKS AGAIN. 


1 PRINT TAB(33) 5 "QUEEN" 


2 PRINT TAB(IS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY“ 


3 PRINTSPRIATsPRINT 
10 DIM $(464) 

11 FOR [=1 TO 64 

12 READ SCI) 

13 NEXT I 

14 DATA Bt, 71, 61, St, 41, 31, 21, 11 
15 DATA 92, 82, 72, 62, 52, 42, 32, 22 
16 DATA 103, 93, @3, 73, 63, 53, 43, 33 
17 DATA 114, 104, 94, 84, 74, 64, 54, 44 
18 DATA 125, 115, 105, 95, 85, 75, 65, 55 
19 DATA 136, 126, 116, 106, 96, 86, 74, 66 
20 DATA 147, 137, 127, 117, 107, 97, 87, 77 
21 DATA 158, 148, 136, 128, 118, 108, 98, a8 
22 INPUT "DO YOU WANT INSTRUCTIONS" sus 

23 IF WS="NO" THEN 30 

24 IF US="YES" THEN 28 

25 PRINT “PLEASE ANSWER “YES” OR “NO’." 

26 GOTO 22 

28 GOSUB 5000 

27 GOTO 100 

30 GOSUB 5150 

90 REM ERROR CHECKS 

100 PRINT “WHERE WOULD YOU LIKE TO START"; 

110 INPUT Hi 

115 IF H1e0 THEN 232 

420 TH2INTCHE/10) 

130 Ul=Ht-108T1 

140 IF Ut=1 THEN 200 

150 IF Ut=T1 THEN 200 

160 PRINT “PLEASE READ THE DIRECTIONS AGAIN." 
170 PRINT “YOU HAVE BEGUN ILLEGALLY.” 

175 PRINT 

180 GOTO 100 

200 GOSUB 2000 

210 PRINT “COMPUTER MOVES TO SQUARE"3N 

215 IF N=15@ THEN 3400 

220 PRINT “WHAT IS YOUR HOVE“: 

230 INPUT Ht 

23) IF W1C>0 THEN 239 

232 PRINT 

233 PRINT “IT LOOKS LIKE I HAVE WON BY FORFEIT." 
234 PRINT 

235 GOTO 4000 

239 IF MIX=H THEN 3200 

240 TIEENTCHI/10) 

250 U1=HI-106T! 

260 P=U1-U 

270 IF P<>0 THEN 300 

280 L=T1-T 

290 IF L<s0 THEN 3200 

295 GOTO 200 

300 IF T1-T ©P THEN 320 

310 Gate 200 

320 IF T1-T <>28P THEN 3200 

330 60TO 200 

1990 REH LOCATE MOVE FOR COMPUTER 

2000 IF Hi=41 THEN 2180 

2010 IF Nl=44 THEN 2180 

2020 IF M1=73 THEN 2180 

2030 IF Ml=75 THEN 2180 

2040 IF H1=126 THEN 2180 

2050 IF Wi=127 THEN 2180 

2060 IF Hl=158 THEN 3300 

2065 C=0 

2070 FOR K=7 TO 1 STEP -1 

2080 U=ut 

2090 T=Ti+K 

2100 GaSUB 3500 

2105 IF C=1 THEN 2160 

2110 U=U+K 

2120 GOSUB 3500 

2125 IF C1 THEN 2160 

2130 T=T+K 

2140 GOSUB 3500 

2145 IF C=1 THEN 2160 

2150 NEXT K 

2155 GOTO 2180 

2160 C=0 

2170 RETURN 

2180 GOSUB 3000 

2190 RETURN 

2990 REH RANDOM HOVE 


3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
30970 
3100 
3110 
3120 
3130 
3140 
3190 
3200 
3210 
3220 
3290 
3300 
S310 
3320 
3330 
3340 
3350 
3360 
3370 
3390 
3400 
J410 
3420 
3430 
3440 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3990 
4000 
4010 
4020 
4030 
4040 
4042 
4045 
4050 
40460 
A990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5070 
3100 
Sito 
5120 
Std0 
340 
5150 
5160 
5170 
5180 
S185 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
9999 
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Z=RND(1) 

IF 2>.6 THEN 3110 

IF Z>.3 THEN 3070 

veut 

TeTh +t 

H=t0sT4U 

RETURN 

UFUttt 

TsTt#2 

He10eT+U 

RETURN 

usUitd 

TsTt+t 

He10eT+U 

RETURN 

REN ILLEGAL HOVE MESSAGE 

PRINT 

PRINT “YOU CHEAT... TRY AGAIN": 
GOTO 230 

REM PLAYER WINS 

PRINT 

PRINT “CONGRATULATIONS... ." 
PRINT 

PRINT “YOU HAVE WON~-VERY WELL PLAYED.“ 
PRINT “IT LOOKS LIKE I HAVE MET HY MATCH." 


PRINT “THANKS FOR PLAYING~--I CAN’T WIN ALL THE TIHE.” 


PRINT 

GOTO 4000 

REM * COMPUTER WINS 

PRINT 

PRINT “NICE TRY, BUT IT LOOKS LIKE I HAVE VON." 
PRINT "THANKS FOR PLAYING.” 
PRINT 

GOTO 4000 

REH TEST FOR COMPUTER HOVE 
We1OsT+U 

IF M=58 THEN 3570 

IF 4=12? THEN 3570 

IF M=126 THEN 3570 

IF W=75 THEN 3570 

IF W=73 THEN 3970 

RETURN 

C=1 

GOTO 3560 

REW ANOTHER GAHET?? 

PRINT “ANYONE ELSE CARE TO TRY"; 
INPUT Q8 

PRINT 

IF O¢="YES" THEN 100 

IF Q$="NO" THEN 4050 

PRINT "PLEASE ANSWER “YES* OR “NO’." 


GOTO 4000 

PRINT "OK ~-- THANKS AGAIN," 
sToP 

REH DIRECTIONS 


PRINT "WE ARE GOING TO PLAY A GANE BASED ON ONE OF THE CHESS* 


PRINT "MOVES. OUR QUEEN WILL BE ABLE TO MOVE ONLY TO THE LEFT,* 
PRINT "DOWN, OR DIAGONALLY DOWN AND TO THE LEFT." 

PRINT 

PRINT “THE OBJECT OF THE GANE 18 TO PLACE THE QUEEN IN THE LOWER" 
PRINT “LEFT HAND SQUARE BY ALTERNATING HOVES BETWEEN YOU AND THE” 
PRINT “COMPUTER. THE FIRST ONE TO PLACE THE QUEEN THERE WINS." 
PRINT 

PRINT “YOU GO FIRST AND PLACE THE QUEEN IN ANY ONE OF THE SQUARES" 
PRINT “ON THE TOP ROW OR RIGHT HAND COLUMN." 

PRINT "THAT WILL BE YOUR FIRST HOVE." 

PRINT "WE ALTERNATE MOVES," 

PRINT "YOU MAY FORFELT BY TYPING °0° AS YOUR MOVE." 

PRINT "BE SURE TO PRESS THE RETURN KEY AFTER EACH RESPONSE." 
PRINT 

PRINT 

PRINT 

FOR A=0 T0 7 

FOR B21 TO 6 

T=B#A+B 

PRINT S(1)5 

NEXT B 

PRINT 

PRINT 

PRINT 

WEXT A 

PRINT 

RETURN 

END 


Reverse 


The game of REVERSE requires you 
to arrange a list of numbers in 
numerical order from left to right. To 
move, you tell the computer how many 
numbers (counting from the left) to 
reverse. For example, if the current list 
is: 

234516789 
and you reverse 4, the result will be: 

§43216789 
Now if you reverse 5, you wir! 

There are many ways to beat the 
game, but approaches tend to be either 
algorithmic or heuristic. The game thus 
offers the player a chance to play with 
these concepts in a practical (rather 
than theoretical) context. 

An algorithmic approach guarantees 
a solution in a predictable number of 
moves, given the number of items in the 
list. For example, one method 
guarantees a solution in 2N - 3 moves 
when the list contains N numbers. The 
essence of an algorithmic approach is 
that you know in advance what your 
next move will be. One could easily 
program a computer to do this. 

A heuristic approach takes advan- 
tage of “partial orderings” in the list at 
any moment. Using this type of ap- 
proach, your next move is dependent 
on the way the list currently appears. 
This way of solving the problem does 
not guarantee a solution in a predic- 
table number of moves, but if you are 
lucky and clever, you may come out 
ahead of the algorithmic solutions. 
One could not so easily program this 
method. 

In practice, many players adopt a 
“mixed” strategy, with both algorithmic 
and heuristic features. Is this better 
than either “pure” strategy? 

The program was created by Peter 
Sessions of People’s Computer Com- 
pany and the notes above adapted from 
his original write-up. 
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REVERSE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


REVERSE ~~ A GAHE OF SKILL 

DO YOU WANT THE RULES? YES 

THIS IS THE GANE OF “REVERSE’. TO WIN, ALL YOU HAVE 
TO DO IS ARRANGE A LIST OF NUMBERS “(1 THROUGH 9 ) 

IN NUMERICAL ORDER FROK LEFT TO RIGHT. TO MOVE, YOU 


TELL ME HOW MANY NUMBERS (COUNTING FROM THE LEFT) TO 
REVERSE. FOR EXAMPLE, IF THE CURRENT LIST IS: 


2343516789 
AND YOU REVERSE 4, THE RESULT WILL BE: 
3439216789 
NOW IF YOU REVERSE 5, YOU WIN} 
1234567869 
NQ DOUBT YOU VILL LIKE THIS GAME, BUT 
IF YOU WANT TO QUIT, REVERSE 0 (ZERO). 
HERE WE GO ... THE LIST IS: 
245 § 9 6 3 7 8 
HOU HANY SHALL I REVERSE? 9 
87369146 4 2 
HOU MANY SHALL I REVERSE? 4 
637 8%? 15 4 2 
HOW HANY SHALL I REVERSE? 5 
87 3 6 1 5 4 2 
HOU HANY SHALL I REVERSE? 9 
245 1637 8 9 
HOW HANY SHALL I REVERSE? 3 
594216 3 7 8 9 
HOU HARY SHALL I REVERSE? 4 
#245 6378 ¢ 
HOW MANY SHALL I REVERSE? 4 
$65 4217 8 9 
HOW MANY SHALL I REVERSE? 4 
45 63 217 @ 9 
HOW MANY SHALL I REVERSE? 3 
465 4939 217 8 9 
HOU HANY SHALL I REVERSE? 6 
!23 45 67 8 9 
YOU WOH IT IH 10 NOVES!I 


TRY AGAIN (YES OR NOD? NO 


Q.K. HOPE YOU HAD FUN! 


54S52167hJ 


10 PRINT TAB(32);“REVERSE* 

20 PRINT TAB(TS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINTSPRINTs PRINT 

100 PRINT “REVERSE -- A GAME OF SKILL“: PRINT 

130 DIK A(20) 

140 REN #e@ RENUNBER OF NUMBERS 

150 R=9 

160 PRINT "DO YOU WANT THE RULES"; 

170 INPUT A$ 

180 IF A$="HO" THEN 210 

190 GOSUB 710 

200 REM #e* MAKE A RANDOM LIST A(t) TO ACN) 

210 ACTDSENTC(N-E)ORHD( 142) 

220 FOR K=2 TO WN 

230 ACKIEINTCN#RND (1941) 

240 FOR J=t TO K~! 

250 IF ACK}=ACJ) THEN 230 

260 WEXT Js NEXT K 

280 REM ##¢ PRINT ORIGINAL LIST AND START GAME 

290 PRINT: PRINT “HERE WE GO ... THE LIST 193" 

310 T=0 

320 GOSUB 610 

330 PRINT “HOW HANY SHALL I REVERSE"; 

340 INPUT R 

350 IF R=Q THEN 520 

360 IF RC=N THEN 390 . 

370 PRINT "OOPS! TOO MANY! I CAN REVERSE AT MOST";N: GOTO 330 
370 TeT+t 

400 REN ee REVRESE R NUMBERS AND PRINT NEU LIST 

410 FOR Km) TO INT(R/2) 

420 ZeA(K) 

430 ACKI=ACR-K+1) 

440 ACR-K+t)sZ 

450 NEXT K 

460 GOSUB 6t0 

470 REM #48 CHECK FOR A WIN 

480 FOR K=1 TON 

490 IF ACKIQOK THEN 330 

500 EXT K 

SiO PRINT "YOU WON IT IN"|T;"HOVESI Si": PRINT 

520 PRINT 

330 PRINT “TRY AGAIN (YES OR WO)"; 

540 INPUT AS 

550 IF AS="YES" THEN 210 

560 PRINT: PRINT "O.K. HOPE YOU HAD FUNII": GOTO 999 

600 REW #¢* SUBROUTINE TO PRINT LIST 

610 PRINT: FOR K=1 TO Ns PRINT ACK)5: NEXT K 

630 PRINT: PRINT: RETURN 

700 REK #6 SUBROUTINE TO PRINT THE RULES 

710 PRINT: PRINT "THIS IS THE GAME OF ‘REVERSE’. TO WIN, ALL YOU HAVE" 
720 PRINT “TO DO IS ARRANGE A LIST OF NUMBERS (1 THROUGH";N;")° 
730 PRINT “IN NUMERICAL ORDER FRON LEFT TO RIGHT. TO HOVE, YOU" 
740 PRINT "TELL HE HOU KANY NUMBERS (COUNTING FROM THE LEFT) TO" 
750 PRINT “REVERSE, FOR EXAMPLE, IF THE CURRENT LIST I8:" 
760 PRINT: PRINT "23451467 8 9 

770 PRINTs PRINT “AND YOU REVERSE 4, THE RESULT WILL BE" 

780 PRINTs PRINT "5 432167 6 9" 

790 PRINTs PRINT “NOW IF YOU REVERSE 5, YOU WIN!" 

800 PRINT: PRINT “123.45 67 @ 9": PRINT 

810 PRINT “NO DOUBT YOU WILL LIKE THIS GAME, BUT” 

820 PRINT “IF YOU WANT TO QUIT, REVERSE 0 (ZERO)."s PRINT: RETURN 
9997 END 
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Rock, Scissors, 


Paper 


Remember the game of rock- 
scissors-paper. You and your oppo- 
nent make a motion three times with 
your fists and then either show a flat 
hand (paper), fist (rock), or two fingers 
(scissors). Depending upon what is 
shown, the game is atie (both show the 
same) or one person wins. Paper wraps 
up rock, so it wins. Scissors cut paper, 
so they win. And rock breaks scissors, 
so it wins. 

In this computerized version of rock- 
scissors-paper, you can play up to ten 
games vs. the computer. 

Charles Lund wrote this game while 
at the American School in The Hague, 
Netherlands. 


GAKE OF ROCK, SCISSORS, PAPER 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


10 PRINT TAB(2t);"GANE OF ROCK, SCISSORS, PAPER" 

20 PRINT TABCHS);"CREATIVE COMPUTING NORRISTOWN, NEW JERSEY" 
25 PRINTSPRINTsPRINT 

30 INPUT "HOW MANY GANES";0 

40 IF Q<tt THEN 60 


50 PRINT “SORRY, BUT WE AREN“T ALLOWED TO PLAY THAT NANY."; GOTO Jo 


60 FOR G=1 10 0 

70 PRINT: PRINT “GANE NUMBER"; 6 

80 X=INTCRND(1) #341) 

90 PRINT "S#ROCK...2*SCISSORS...1=PAPER" 

100 INPUT "t...2.00d.6.WHAT“S YOUR CHOICE" ;K 

T40 IF (K~1)@(K-2)8€K-32<4>0 THEN PRINT "INVALID."s GOTO 90 
120 PRINT “THIS 19 HY CHOICE..." 

130 ON X GOTO 140,150,140 

140 PRINT “...PAPER": GOTO 170 

150 PRINT "...SCISSORS“: GOTO 170 

160 PRINT "...ROCK" 

170 IF X=K THEN 250 

180 IF X>K THEN 230 

190 IF X=1 THEN 210 

200 PRINT "YOU WINTI!"sH=H+1s GOTO 260 

210 IF K<>3 THEN 200 

220 PRINT "WOW! I WINE! I"sC=C+1:60T0 260 

230 IF KO>1 OR XC>3 THEN 220 

240 GOTO 200 

250 PRINT "TIE GAME. NO WINNER." 

260 NEXT & 

270 PRINT: PRINT “HERE IS THE FINAL GAKE SCORE:" 
280 PRINT "I HAVE WON"SC;“GAHE(S)." 

290 PRINT “YOU HAVE WON"?H;"GAME(S)." 

300 PRINT "AND" ;Q-(C+H);“GAME(S) ENDED IN A TIE." 
310 PRINT: PRINT "THANKS FOR PLAYING!I* 

320 END 
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HOW MANY GAMES? 10 


GAME NUMBER 1 
S=ROCK...2=SCISGSORS...1=PAPER 
Teun2eee5.eeMHAT’S YOUR CHOICE? 
THIS IS HY CHOICE... 

oo PAPER 

WoW! oT MIN! t! 


GAHE NUMBER 2 
J=ROCK...2=SCISSORS...1=PAPER 
Vess2eeedse WHATS YOUR CHOICE? 
THIS IS MY CHOICE... 

w+ ROCK 

WOU! oT WLWitt 


GANE NUMBER 3 
d=ROCK...22SCISSORS. ..15PAPER 
Vane2ewedee WHATS ¥ UR CHOICE? 
THIS IS MY CHOICE... 

«eePAPER 

You WINtt!! 


GAHE MUNBER 4 
S=ROCK...22SCISSORS...1=PAPER 
Vies2eeedee WHATS YOUR CHOICE? 
THIS IS MY CHOICE... 

oe sROCK 

YOU WINI!! 


GAME NUMBER 5 
J=ROCK...2°SCISSORS...1=PAPER 
Tan e2eeedee WHATS YOUR CHOICE? 
THIS IS HY CHOICE... 

«+ sSCISSORS 

YOU WINIH 


GAKE NUMBER 6 

SeROCK. ..2=SCISSORS...1=PAPER 
Veee2eeedeen WHATS YOUR CHOICE? 
THIS IS WY CHOICE... 

oo SCISSORS 

TIE GAME. NO WINNER, 


GAME NUMBER 7 
SSROCK...2=SCISSORS. ..1=PAPER 
Leen2eeed...WHAT’S YOUR CHOICE? 
THIS IS MY CHOICE... 

wo ROCK 

WOW) oF WINE! 


GAME NUMBER @ 

S=ROCK, «.2*SC1SSORS,..1=PAPER 
Liee2eesd.esWHAT’S YOUR CHOICE? 
THIS IS MY CHOICE... 

«+ ROCK 

TIE GAKE. NO WINNER. 


GAHE NUMBER 9 
S=ROCK...2=SCISSORS... 1=PAPER 
1i.e20005...UHAT“S YOUR CHOICE? 
THIS IS WY CHOICE... 

oe ROCK 

YOU WINEEt ~ 


GAKE NUMBER 10 
S=ROCK...2=SCISSORS. ..1=PAPER 
To.0260.5,..UHAT’S YOUR CHOICE? 
THIS IS HY CHOICE... 

+ ROCK 

WOW oY WINE!! 


HERE 1S THE FINAL GAME SCORE: 
T HAVE WON 4 GANECS). 

YOU HAVE UON 4 GANE(S). 

AND 2 GAHE(S) ENDED IN A TIE. 


i 


Roulette 


This game simulates an American TYPES OF BETS 
Roulette wheel; “American” because it THE NUMBERS 1 TQ 36 SIGNIFY A STRAIGHT BET 
has38 number compartments (1 to 36, 0 ON THAT NUMBER 
and 00). The European wheel has 37 THESE PAY OFF 35:1 
numbers (1 to 36 and 0). The Bahamas, . 
Puerto Rico, and South American ee et BETS anes 
uero , A 37) 1-12 40) FIRST COLUMN 
countries are slowly switching to the 38) 13-24 44) SECOND COLUMN 
American wheel because it gives the 37) 25-36 = 42) THIRD COLUMN 
house a bigger percentage. Odd and THE EVEN HONEY BETS ARE: 
even numbers alternate around the 43) 1-18 46) ODD 
wheel, as do red and black. The layout 44) 19-36" 47) RED 
of the wheel insures a highly random 45) EVEN 48) BLACK 
number pattern. In fact, roulette wheels 
are sometimes used to generate tables 49)0 AND 50300 PAY OFF 35:1 
of random numbers, NOTE: 0 AND 00 DO NOT COUNT UNDER ANY 
In this game, you may bet from $5 to BETS EXCEPT THEIR OUN 
$500 and you may bet on red or black, UHEN I ASK FOR EACH BET,TYPE THE NUMBER 
odd or even, first or second 18 AND THE ANOUNT, SEPARATED BY A COMMA 
numbers, a column, or single number. FOR EXANPLE:TO BET $500 ON BLACK, TYPE 48,500 
You may place any number of bets on WHEN T ASK FOR A BET 
each spin of the wheel. Loe MINIMUM BET IS $5,HAXIMUN 15 $500 
There is no long-range winning 
strategy for playing roulette. However, HOU MANY BETST 2 
a good strategy is that of “doubling.” pris ‘ ; an soo 
First spin, bet $1 on an even/odds bet SPINNING ’ 
(odd, even, red, or black). If you lose, 
double your bet to $2. If you lose again, 
double to $4. Continue to double until 20 BLACK 
you win (i.e., you break even on a YOU LOSE 100 DOLLARS ON BET 1 
losing sequence). As soon as you win, YOU LOSE 100 DOLLARS ON BET 2 
bet $1 again, and after every win, bet 
$1. Do not ever bet more than $1 unless TOTALS: Mr 90200 00 
you are recuperating losses by dou- AGAIN? YES 
bling. Do not ever bet anything but the HOW HANY BETS? 4 
even odds bets. Good luck! NUMBER 1 7 15,20 
NUMBER 2 7 21,20 
NUMBER 3 7 40,100 
NUMBER 4 7 49,10 
SPINNING 
ROULETTE 0 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
YOU LOSE 20 DOLLARS ON BET 1 
YOU LOSE 20 DOLLARS ON BET 2 


ENTER CURRENT DATE (AS IN “JANUARY 23, 1978°) -? DECEMBER 2, 1977 YOU LOSE 100 DOLLARS ON BET 3 
WELCOME TO THE ROULETTE TABLE YOU WIN 350 DOLLARS ON BET 4 
DO YOU WANT INSTRUCTIONS? YES TOTALS: NE you 
99990 1010 
THIS I8 THE BETTING LAYOUT AGAIN? NO 
(#=RED) TO WHOH SHALL I MAKE THE CHECK? A. COMPUTER 

1* 2 a i ta 

4 oe é CHECK NO. 22 

7 8 9a 

10 i 128 DECEMBER 2, 1977 
13 14% 18 

16# 7 14% PAY TO THE ORDER OF~-~-- A. COMPUTER~---- $ «1010 

1%* = 20 2t+ 
22 23% = 24 


ween ee are THE HENGRY BANK OF VIRGINIA 


28 29 304 THE COMPUTER 


00 ) COME BACK SOON! 
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10 PRINT TAB(S2); "ROULETTE" 


20 PRINT TABCES);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


30 PRINTSPRINTS PRINT 


40 PRINT “ENTER CURRENT DATE (AS IN JANUARY 23, 1978°) -"3 


SO INPUT DS,E$ 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1420 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
15970 
1600 
1610 
1620 
1630 
1640 
1650 
1460 
1670 
1680 


REN-ROULETTE 

REH-DAVID JOSLIN 

PRINT “WELCOHE TO THE ROULETTE TABLE" 
PRINT 

PRINT "DO YOU WANT INSTRUCTIONS"; 
INPUT Y$ 

IF LEFT$(¥$,1)="N" THEN 1550 
PRINT 

PRINT “THIS IS THE BETTING LAYOUT" 
PRINT “ (#=RED)* 

PRINT 

PRINT " 1+ 2 ye" 

PRINT " 4 S* é° 

PRINT " 7s 8 oe" 

PRINT “10 WW 120" 

PRINT Sow nnn een n nee " 

PRINT “13 tas 3" 

PRINT “169 17 18+" 

PRINT “19 20 ais" 

PRINT “22 238 24" 

PRINT Sm nme em mee en " 

PRINT "25* 26 274" 


PRINT "28 29 304" 

PRINT “3t 324 3 * 

PRINT “34e 0 35 344" 

PRINT Swern nnn eww mene . 

PRINT “ 00 0 . 

PRINT 

PRINT “TYPES OF BETS" 

PRINT 

PRINT "THE NUMBERS 1 TO 34 SIGNIFY A STRAIGHT BET" 


PRINT “ON THAT NUMBER” 

PRINT "THESE PAY OFF 3531" 

PRINT 

PRINT "THE 2:1 BETS ARE:" 

PRINT " 37) £-12 40) FIRST COLUMN" 
PRINT " 38) 13-24 41) SECOND COLUMN” 
PRINT ° 39) 25-36 42) THIRD COLUMN" 
PRINT 

PRINT "THE EVEN HONEY BETS ARE:" 

PRINT * 43) 1-18 46) ODD" 

PRINT ° 44) 19-36 47) RED" 


PRINT “ 45) EVEN 44) BLACK" 

PRINT 

PRINT " 4930 AND 50)00 PAY OFF 35:1" 

PRINT " NOTE: 0 AND 00 DO NOT COUNT UNDER ANY" 
PRINT “ BETS EXCEPT THEIR GUN" 

PRINT 


PRINT "WHEN I ASK FOR EACH BET, TYPE THE NUMBER" 
PRINT "AND THE AHOUNT,SEPARATED BY @ CONHA™ 
PRINT "FOR EXAMPLE:TO BET $500 ON BLACK, TYPE 48,500" 
PRINT "WHEN I ASK FOR A BET" 

PRINT 

PRINT “HINIHUN BET IS $5,NAXIMUM IS $500° 
PRINT 

REK-PROGRAN BEGINS HERE 

REM-TYPE OF BET(NUNBER) QDDS 

REM DON’T NEED TO DIMENSION STRINGS 

DIM B(100),C(100),T(100), X38) 

DIN AC5O) 

FOR T=1 TO 38s X(1)<0: NEXT Lz REN NAT X=ZER 
P=1000 

D=100000. 

PRINT “HOW MANY BETS"; 

INPUT Y 

IF YC) OR YODINT(Y) THEN 1630 

FOR I=1 TO 50: A(L)=Oz NEXT I: REM MAT ASZER 
FOR C=1 TO ¥ 

PRINT "NUMBER: C! 


1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1770 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1870 
19760 
19710 
1920 
1930 
1940 
1950 
1760 
1970 
1980 
19790 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2170 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 


INPUT X,Z 
B(C)=Z 

TLC) =X 

IF X<1 GR X50 OR X<DINT(X) THEN 14680 
IF Z<t OR ZOINT(Z) THEN 1480 
IF Z<5 OR Z>500 THEN 1480 

IF A(X)=0 THEN 1780 

PRINT “YOU HADE THAT BET ONCE ALREADY, DUM~DUN" 
GOTO 1680 

ACK)=1 

NEXT C 

PRINT “SPINNING” 

PRINT 

PRINT 

S=INT(100#RND(1)) 

IF $=0 OR $>3@ THEN 1830 
XCS)=X(S)41 

IF §¢37 THEN 1920 

IF $=37 THEN 1900 

PRINT “00" 

GOTO 2020 

PRINT "9" 

6OTO 2020 

RESTORE 

FOR I=1 10 18 

READ R 

IF R=S THEN 2000 

EXT I 

AS="BLACK" 

PRINT $3A$ 

GOTO 2020 

AS="RED" 

GOTO 1980 

PRINT 

FOR C=1 TO Y 

IF TCG)<37 THEN 2710 

ON T(€)-36 GOTO 2090,2190,2220, 2250, 2300, 2350,2400,2470,2500 
ON T(C)-45 GOTO 2530,2560,2630 
GOTO 2710 

STOP 

REK 1-12(37) 2:1 

IF S$ <= 12 THEN 2150 

PRINT “YOU LOSE"3B(C);"DOLLARS ON BET “;C 
D=D4B(D) 

P=P~B(C) 

GOTO 2180 

PRINT “YOU VIN ";B(C)*23"DOLLARS ON BET “sC 
D=D-B(C) #2 

P=P4B(C) #2 

GOTO 2810 

REM 13-24(38) 231 

IF S12 AND $¢25 THEN 2150 
BOTO 2110 

REK 25-36(39) 2:1 

IF $>24 AND SC37 THEN 2150 
GOTO 2110 

REH FIRST COLUMN(40) 2:1 

FOR I=1 TO 34 STEP 3 

IF S=I THEN 2150 

REXT 1 

GOTO 2110 

REM SECOND COLUHN(41) 231 


2310 FOR [=2 TO 45 STEP 3 


2320 
2340 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
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IF S=I THEN 2150 
NEXT I 

GOTO 2110 

REM THIRD COLUMN(42) 221 
FOR 1=3 10 36 STEP 3 
IF S=I THEN 2150 
NEXT I 

GOTO 2110 

REM 1-18(43) t2t 

IF S<i? THEN 2430 
GOTO 2110 


2430 PRINT "YOU WIN "SB(C); "DOLLARS ON BET"5C 2890 PRINT “YOU BROKE THE HOUSE!" 


2440 D=D-B(C) 2900 P=101000. 

2450 P=P+B(C) 2910 GOTO 2940 

2460 GOTO 2810 2920 PRINT “AGAIN; 

2470 RE 19-36(44) i3t 2930 INPUT Y$ 

2480 IF S<37 ARD $>18 THEN 2430 2940 IF LEFTS(YS,1)="Y" THEN 1630 

2490 GOTO 2110 2950 DATA 1,3,5,7, 9p 12,14, 16,18, 19,21, 24, 25,27, 30,32,34, 36 
2500 REN EVEN(45) 131 2960 IF PC1 THEN 3190 

2550 IF S/2@INT(S/2) AND S<37 THEN 2430 2970 PRINT “TO WHOH SHALL I HAKE THE CHECK"; 

2520 GOTO 2110 2980 INPUT BS 

2530 REN ODD(4G) 121 2990 PRINT 

2540 IF S/2<>INT(S/2) AND S<37 THEN 2430 3000 FOR I=1 TO 72: PRINT “-"t: NEXT I: REM PRINT 72 DASHES 
2550 GOTO 2110 3010 PRINT TAB(5SO)s "CHECK NO. “SINT (100#RND(1)) 

2560 REH RED(A7) 1:1 3020 PRINT 

2570 RESTORE 3030 GOSUB 3230 

2580 FOR I=1 TO 18 3040 PRINT TAB(40) HS 

2590 READ R 3050 PRINT 

2600 IF S=R THEN 2430 4060 PRINT 

2610 NEXT I 3070 PRINT "PAY 70 THE ORDER OF---~~ "SBS p Meee sy 

2620 GOTO 2110 3080 PRINT P 

2630 REN BLACK(48) 1:1 3090 PRINT 

2640 RESTORE 3100 PRINT 

2650 FOR I=1 TO 18 JN10 PRINT TAB(10),"THE MEMORY BANK OF VIRGINIA" 

2660 READ R 3120 PRINT 

2670 IF SR THEN 2110 3130 PRINT TAB(40), "THE COMPUTER" 

2680 NEXT I 3140 PRINT TAB(4Q)"=----~---~ Yorens " 

2690 IF S336 THEN 2110 3150 PRINT 

2700 GOTO 2430 3160 FOR T= 10 72: PRINT “="2 NEXT 1 

2710 REX--11036,0,00(1-36,49,50)3581 3170 PRINT “CONE BACK SOON!" 

2720 IF T(C)<49 THEN 2760 3180 GOTO 3210 

2730 IF 1(C)=49 AND S=37 THEN 2780 3190 PRINT "THANKS FOR YOUR MONEY" 

2740 1F T(C)=50 AND S=38 THEN 2780 3200 PRINT “I/LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL" 
2750 GOTO 2110 3210 PRINT 

2760 IF T(L)=§ THEN 2780 3220 GOTO 3420 

2770 GOTO 2110 4230 REH 

2780 PRINT “YOU WIN "3B(C)*35;"DOLLARS ON BET "3C 3240 REH THIS ROUTINE RETURNS THE CURRENT DATE IN M$ 
2790 D=D-B(C) #35 3250 REH IF YOU HAVE SYSTEM FUNCTIONS TO HANDLE THIS 
2800 P=P+B(C)#35 3260 REH THEY CAN BE USED HERE. HOWEVER IN THIS 
2810 NEXT C 3270 REH PROGRAM, WE JUST INPUT THE DATE AT THE START OF 
2820 PRINT 3280 REM THE GAME. 

2830 PRINT “TOTALS:", "NE", "YOU" 3290 REM 

2840 PRINT “ “,D,P 3300 REK THE DATE IS RETURNED IN VARIABLE N$ 

2850 IF P>0 THEN 2880 3310 HS=DSe", "HES 

2860 PRINT “OOPS! YOU JUST SPENT YOUR LAST DOLLAR" 3320 RETURN 

2870 GOTO 3190 3420 END 


2880 IF B>Q THEN 2920 
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Russian Roulette 


(© 


\ areal , 
A U 


THIS IS A GANE OF >>>>>>>>> RUSSIAN ROULETTE. 


eRe * HERE 19 A REVOLVER. 


TYPE 71° TO SPIN CHAMBER AND PULL TRIGGER. 
TYPE ‘2° TO GIVE UP. 


In this game, you are given by the e ELICK - ‘ 
computer a revolver loaded with one 
bullet and five empty chambers. You Three - 
spin the chamber and pull the trigger 
by inputting a “1,” or, if you want to 71 
quit, input a “2.” You win if you play ten ~ CLICK ~ 
times and are still alive. "1 
Tom Adametx wrote this program ~ CLICK - 
while a student at Curtis Jr. High 
School in Sudbury, Massachusetts. mM 
~ CLICK ~ 
1 


BANGIH!!!! «©=YOUCRE DEAD! 
CONDOLENCES WILL BE SENT TO YOUR RELATIVES. 


oe eNEXT VICTIM... 
TYPE ‘t’ TQ SPIN CHAMBER AND PULL TRIGGER. 
TYPE “2° 10 GIVE UP. 
GO? 2 
CHICKENT INT! 


os oNEXT VICTIM... 
TYPE ‘1’ TG SPIN CHAMBER AND PULL TRIGGER. 
TYPE ‘2° 10 GIVE UP. 


RUSSIAN ROULETTE gor | 

CREATIVE COMPUTING MORRISTOWN, NEW JERSEY ~ GLICK - 
m1 

1 PRINT TAB(28); "RUSSIAN ROULETTE" ~ CLICK - 

2 PRINT TAB(IS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

3 PRINT SPRINT: PRET tM 

5 PRINT “THIS IS A GANE OF >>>>>>>>>2RUSSIAN ROULETTE." - CLICK - 

10 PRINTSPRINT “HERE 19 A REVOLVER." 

20 PRINT “TYPE ‘1’ TO SPIN CHAMBER AND PULL TRIGGER." "1 

22 PRINT “TYPE “2° TO GIVE UP.” ~ CLICK - 

23 PRINT “6O"5 

25 N=0 uw 

30 INPUT I - CLICK - 

31 IF 102 THEN 35 

32 PRINT * = CHICKENIH111" mM 

33 GOTO 72 ~ CLICK - 

35 Kent 

40 IF RND(1)>.833333 THEN 70 "1 

45 IF N>t0 THEN 80 ~ CLICK - 

50 PRINT "- CLICK -" 

40 PRINT: GOTO 30 a 

70 PRINT “ = BANGHII!! YOURE DEAD!" ~ CLICK - 

21 PRINT “CONDOLENCES WILL BE SENT TO YOUR RELATIVES.” 

72 PRINT:PRINT:PRINT 1 

75 PRINT *.,.NEXT VICTIM. ..":60T0 20 - CLICK - 

BO PRINT “YOU WINITIIT* 

€5 PRINT “LET SOMEONE ELSE BLOW HIS BRAINS OUT.” mW 

90 GOTO 10 BANG!T!!! YOURE DEAD! 

99 END CONDOLENCES WILL BE SENT TO YOUR RELATIVES. 
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t 


Salvo 


The rules are not explained by the 
program, so read carefully this descrip- 
tion by Larry Siegel, the program 
author. 

SALVO is played on a 10x10 grid or 
board using an x,y coordinate system. 
The player has 4 ships: battleship (5 
squares), cruiser (3 squares), and two 
destroyers (2 squares each). The ships 
may be placed horizontally, vertically, 
or diagonally and must not overlap. 
The ships do not move during the 
game 

As long as any square of a battleship 
still survives, the player is allowed three 
shots, fora cruiser 2 shots, and for each 
destroyer 1 shot. Thus, at the begin- 
ning of the game the player has 
3+2+1+1=7 shots. The player enters all 
of his shots and the computer tells what 
was hit. A shot is entered by its grid 
coordinates, x,y. The winner is the one 
who sinks all of the opponent’s ships. 

Important note: Your ships and the 
computer's ships are located on 2 
separate 10x10 boards. 

Author of the program is Lawrence 
Siegel of Shaker Heights, Ohio. 


YOU HAVE 7 SHOTS. 


SALVO 
CREATIVE COMPUTING 

HORRISTOUN, NEW JERSEY TURK 1 
ENTER COORDINATES FOR... 15,1 
BATTLESHIP 15,2 

7 10,10 75,3 
19,9 15,4 
78,8 15,3 
22,7 75,6 

7 by6 75,7 
CRUISER you # 
73,5 1 

12,6 10 8 
D1? 10 10 
DESTROYER<A> 8 10 
71,10 9? 

7 2,10 10 
DESTROYER<B 10 9 
” 8,7 8 8 

7 6,8 

DO YOU WANT TO START? YES 

DO YOU WANT TO SEE MY SHOTS? YES I HIT YOUR BATTLESHIP 


IT NY DESTROYER<B>. 
HAVE 7 SHOTS. 


1 HIT YOUR BATTLESHIP 
T MIT YOUR BATTLESHIP 
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TURN 2 
YOU HAVE 7 SHOTS. 
r4,1 


Pet ee od 


7 SHOTS. 


oreo ana abs» 


E 
6 


— OR eee 
HOR GIN 


2 
I HIT YOUR BATTLESHIP 


TURN 3 


YOU HAVE 7 SHOTS. 
a 


- 


NO we be et GS me OE OG eo 


wee ee 


OU HIT HY DESTROYER<B>. 


E 6 SHOTS. 


See noensn» db 


1 
? 
? 
? 
? 
? 
Y 
I 


cy 


TURN 4 
YOU HAVE 7 SHOTS. 
11,1 


? 
? 
1 
? 
1 
1 
Y 
? 
I 


o 
aw 
> 


1 HIT YOUR CRUISER 


2 
2 
1 
3 
3 
4 
SHOT THERE BEFORE ON TURN 3 
A 
Vv 
3 
2 
3 


TURN 5 
YOU HAVE 7 SHOTS. 
71,5 


— +3. we 


NN << ON & Oe ON 


IT MY DESTROYER<A>. 
E 6 SHOTS. 


Zon enn - — 


? 
? 
? 
? 
? 
1 
Y 
IT 


A 


“OO me om A 
o 
db =n oe 
tt 


TURN 6 
YOU HAVE 7 SHOTS. 


1 
? 


IT HY DESTROYER<A>. 


AVE 5 SHOTS. 


bP beWe SEND OD OOH a 


TURN 7 

YOU HAVE 7 SHOTS. 
24,3 

8,5 

8,7 

10,3 

10,5 

10,7 

10,9 

YOU HIT MY CRUISER. 
YOU HIT HY CRUISER. 


a 


1 HIT YOUR CRUISER 


TURN 8 
YOU HAVE 7 SHOTS. 


TURN ? 
YOU HAVE 7 SHOTS. 


~ =. 


xso~OWONNN 
7” 


>~ 
Aeon SON GEN OA 


1 
9 
? 
’ 
? 
? 
? 
I 


E 5 SHOTS. 


EO fet GE OD Ge 


IT MIT YOUR CRUISER 


TURN 10 
YOU HAVE 3 SHOTS. 


TURN 11 

YOU HAVE 5 SHOTS. 
75, 

0 


? 
? 
? 
2 

0 


9 
6,1 
7,9 
a,1 
29,9 
You 3 
78,8 
You 


I HAVE 3 SHOTS. 
1 ? 


TURN 12 
YOU HAVE 5 SHOTS. 
23,9 


HOT THERE BEFORE ON TURN ? 


IT MY BATTLESHIP. 
YOU HIT MY BATTLESHIP. 


14,9 
76,9 
78,9 
7 10,10 


IT MY CRUISER. YOU HIT MY BATTLESHIP. 
— 3 SHOTS. YOU HIT MY BATTLESHIP. 
2 IT HAVE 0 SHOTS. 

10 YOU HAVE WON. 


2 
4 
é 
8 YOU HIT MY BATTLESHIP. 
H 
vi 


I HIT YOUR DESTROYER<A> 


~ 1000 
~1010 
- 1020 
- 1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1405 
1410 
1415 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


PRINT TAB(33);"SALVO" 

PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
PRINTSPRINTsPRINT 

REN 


DIM AC1O, 10) ,BC10, 10) ,CC7),D(7) £ C12) (12) 6012) ,HE12) ,KC10, 10) 


18=0 
FOR W=1 TO 12 

ECu)a-1 

HCW)e-1 

NEXT U 

FOR X=1 TO 10 

FOR Yet TO 10 

BCX,¥)20 

NEXT Y 

NEXT X 

FOR X=1 10 12 

F(X) 30 

6(X}=0 

NEXT X 

FOR X=1 TO 10 

FOR Y=1 TO 10 

ACK, Y)=0 

NEXT Y 

WEXT X 

FOR K=4 TO ¢ STEP ~-1 

U6=0 

GOSUB 2910 

DEF FHA(K)=(S-K)e3-20ENT(K/4)4+S0N(K-1 1 
DEF FNBCK)=K+INT(K/4)~SGH(K-1) 
IF U+V¥2¢VeV2—0 THEN 1260 

IF Y#VeFNBC(K)>10 THEN 1260 

IF Y#VeFNB(K)<1 THEN 1260 

IF X#V2eFNBC(K)>10 THEN 1240 

IF X4V29FNB(K)<1 THEN 1260 
Us=U6+1 

IF U6>25 THEN 1190 

FOR Z=0 TO FNB(K) 

FCZ4FNACK) )aX+0207 

GC Z+FNACK) eY+07Z 

NEXT Z 

UBEFNACK) 

IF US>US*FNB(K) THEN 1440 

FOR 22= U8 TO US+FNB(K) 

IF U8<2 THEN 1450 

FOR Z3=1 TO U8-1 

IF SOR((F(Z3)-F(22))*2 + (6(23)-6(Z2))°2) < 3.59 THEN 1260 
NEXT 23 

WEXT 22 

FOR Z20 TO FHB(K) 

ACF(Z+U8) ,G(24U8))=.5¢S6N(H~1)9(K-1.5) 
NEXT Z 

NEXT K 

PRINT "ENTER COORDINATES FOR..." 
PRINT "BATTLESHIP" 

FOR X#1 10 5 

INPUT Y,2 
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1540 
1550 
1560 
1570 
1560 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 


B(Y,2)=3 
NEXT X 

PRINT "CRUISER" 

FOR X=1 10 3 

INPUT Y,Z 

B(Y,Z)"2 

WEXT X 

PRINT “DESTROYER<A>" 
FOR X=1 10 2 

INPUT Y,Z 

B(Y,Z)=1 

NEXT X 

PRINT "DESTROYER<B>” 
FOR X=¥ 10 2 

INPUT Y,2Z 

BCY, 202.5 

NEXT X 

PRINT "DO YOU WANT TO START": 
INPUT JS 

IF J9Q“UHERE ARE YOUR SHIPST” THEN 1890 
PRINT “BATTLESHIP” 

FOR Z=1 10 5 

PRINT F(Z)36(Z) 

NEXT Z 

PRINT “CRUISER” 

PRINT F(6)36(6) 

PRINT F(7)36(7) 

PRINT F(8):G(8) 

PRINT "DESTROYERCA>® 
PRINT F(9)36(9) 

PRINT F(10)26(10) 
PRINT *DESTROYERCB>™ 
PRINT FOVN) 30019) 
PRINT F(42)36(12) 

B0TO 1710 

ceo 

PRINT "BO YOU WANT TO SEE HY SHOTS": 
INPUT KS 

PRINT 

IF J$C>"YES" THEN 2620 
REHeseeeecessesesesaseSTART 
IF J9Q“YES" THEN 1990 
cece 

PRINT 

PRINT “TURNS 

aed 

FOR W=.5 TO 3 STEP .5 
FOR X=1 10 10 

FOR Y=1 10 10 

IF BUX, YD=W THEN 2070 
NEXT Y 

NEXT X 

soTO 2080 
AZAFINT(U4.5) 

NEXT U 

FOR W=1 10 7 

cUw)=0 

D(w)s0 

FU=0 

6(u)=0 

WEXT W 

P3=0 

FOR X=1 10 10 

FOR Y=1 10 10 

IF A(X,¥)>10 THEN 2200 
P3=P3+t 

WEXT Y 

NEXT X 

PRINT "YOU HAVE" sAs“SHOTS." 
IF P3>2A THEN 2260 
PRINT “YOU HAVE HORE SHOTS THAN THERE ARE BLANK SQUARES." 
GoTo 2890 

IF ACO THEN 2290 
PRINT “I HAVE WON.* 
STOP 

FOR U=1 TO A 

INPUT X,Y 

IF X<>INTOX) THEN 2370 
IF X10 THEN 2370 

IF X<1 THEN 2370 

IF YOOIHTCY) THEN 2370 
IF Y>10 THEN 2370 

IF Y>=1 THEN 2390 
PRINT "ILLEGAL, ENTER AGAIN." 
goto 2300 

IF AQG,YID10 THEN 2440 
cCw)=Xx 

D(w)=¥ 

NEXT W 

oto 2460 

PRINT “YOU SHOT THERE BEFORE ON TURN“3A(X,¥)-10 


2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2570 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2670 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2710 
2920 
2930 
2940 
2950 
2960 
2970 
2780 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3070 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 


G0TO 2300 

FOR U=1 TOA 

TF ACC(U),DCW))=3 THEN 2540 
IF ACC(U),D(U))=2 THEN 25460 
IF ACC(U), DCU) )=1 THEN 2580 
IF ACC(W),DCW))=.5 THEN 2600 
ACCOM) DIM) De TO4E 

NEXT U 

B0TO 2620 

PRINT “YOU HIT MY BATTLESHIP." 
GOTO 2510 

PRINT “YOU HIT MY CRUISER." 
GOTO 2510 

PRINT "YOU HIT MY DESTROYER<A>." 
GOTO 2510 

PRINT “YOU HIT HY DESTROYER<B>." 
GOTO 2510 

Aco 

IF J$="YES" THEN 2670 

CaCt+t 

PRINT 

PRINT "TURN" SC 

Aco 

FOR U=.5 TO 3 STEP 1S 

FOR X=1 TO 10 

FOR Y=1 70 10 

IF ACX,Y}=U THEN 2750 

NEXT Y 

NEXT X 

80TO0 2740 

ATATINT (U+ 25) 

WEXT U 

P3=0 

FOR X=1 TO 10 

FOR Y=1 TO 10 

IF ACX,Y)>10 THEN 2820 
PI=P3+1 

NEXT ¥ 

WEXT X 

PRINT “I HAVE" 3A; "SHOTS." 
IF P3>A THEN 2880 

PRINT “I HAVE NORE SHOTS THAN BLANK SQUARES." 
6070 2270 

IF AC>O THEN 2960 

PRINT "YOU HAVE WON.” 

sToP 

XSINTCRND(1)#1041) 
YeINTCRND( 1D etOtt) 
VINTCJ#RNDCH) 1) 
V22INT(S#RND(1)~-1) 

RETURN 

FOR U=1 10 12 

IF H(W)>0 THEN 3800 

NEXT U 
RENetesH02s04298200254RANDON 
v=0 

RI=0 

BOSUB 2910 

RESTORE 

R2=0 

RI=RI+1 

IF R3>100 THEN 3010 

IF X>10 THEN 3110 

IF X>0 THEN 3120 
Xe7¢INT(RND(1)#2.5) 

BOTO 3120 
X=TO-INT(RND(1)#2.5) 

IF Y>10 THEN 3160 

IF Y>O0 THEN 3270 
YET+INTCRNDC1)*2.5) 

60T0 3270 
Y=10-INT(RND(1)92.5) 

GOTO 3270 

F(UdeX 

g(W=¥ 

IF W=A THEN 3380 

IF R2=6 THEN 3030 

READ X1,¥1 

R2=R2+1 

DATA 1,t,~1,t,1,-3,t,1,0,2,-1,1 
X=X4X1 

Yy=¥+V1 

IF X>10 THEN 3210 

IF X<1 THEN 3210 

IF YotO THEN 3210 

IF ¥<1 THEN 3210 

IF BCX,¥)>106 THEN 3210 

FOR Q9=1 TO U 

IF FCQ9)<>X THEN 3350 

IF G(O9)=Y THEN 3210 

NEXT Q? 
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3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3700 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
40970 
4100 
4ltd 
4120 
AN30 
4131 
atg2 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 


Veutt 

GOTO 3180 

IF KS$<>"YES" THEN 3420 

FOR Z5=1 TO A 

PRINT F(Z5)5G(Z5) 

REXT 75 

FOR W=1 TO A 

IF BCFCW),G(W))=3 THEN 3500 
IF B(F(W),GCU))=2 THEN 3520 
IF BCFCW),G(W))=1 THEN 35460 
TF BCF(W),G(W))=.5 THEN 3540 
BCF CU), G(M) =104C 

NEXT U 

6070 1950 

PRINT “I HIT YOUR BATTLESHIP“ 
GOTO 3570 

PRINT “I HIT YOUR CRUISER" 
GOTO 3570 

PRINT “I HIT YOUR DESTROYER<B>" 
60T0 3570 

PRINT “I HIT YOUR DESTROYER<A>" 
FOR Q=1 TO 12 

IF ECQ)<>-1 THEN 3730 
E(Q)=104C 

HCO) =BCF(U) GCU)) 

H3=0 

FOR W2=1 TH 12 

IF WCM2)<>H(G) THEN 3650 
WI=N3+1 

WEXT 42 

IF A3<>INT(H(Q)4.5) 40+ 2NTCINTCH(Q)4.5)/3) THEN 3470 
FOR H2=1 TO 12 

IF HON2)OOH(Q) THEN 3710 
ECH2)=~1 

HCN2)=-1 

NEXT A2 

60TO 3470 

NEXT @ 

PRINT “PROGRAM ABORT:" 

FOR @=1 TO 12 

PRINT “EC"5Q3") ="sE(0) 
PRINT "HC"SQ5") ="sH(G) 

NEXT @ 

sToP 
RENeeeessesessensaeneed ee eallSINGEARRAY 
FOR R=1 TO 10 

FOR S=1 TO 10 

KCR,S)#0 

WEXT § 

NEXT R 

FOR U=1 Ta 12 

IF E(U)<10 THEN 4020 

FOR R=1 Td 10 

FOR S=1 TO 10 

IF BCUR,S)<10 THEN 3930 
K(R,S)=-10000000 

GOTO 4000 

FOR N=SGN(1-R) TO SGN(10-R) 
FOR N=SGN(1-S) TO SGN(10~-S) 
IF H+H+NeH=0 THEN 3980 

TF BCRtH,S#H)C>E(U) THEN 3980 
K(R,S)2K(R,S)4E(U)-SeINT(H(U)+.5) 
NEXT W 

NEXT Wi 

NEXT § 

NEXT R 

NEXT U 

FOR R=1 T0 A 

FC(RD=R 

GCRIER 

NEXT R 

FOR R=1 TO 10 

FOR S=1 Ta 10 

O92] 

FOR N=1 TOA 

IF KCFCH),G(M))>=K(F(O9),G(Q9)) THEN 4130 
QF=H 

NEXT 

IF R>A THEN 4140 

IF R#S THEN 4210 

IF K(R,S)<K(F(Q9),6(09)) THER 4210 
FOR H=1 TOA 

IF FCM)<OR THEN 4490 

IF G(W)*S THEN 4210 

NEXT H 

FCOPER 

6(89)=S 

NEXT § 

REXT R 

GOTO 3380 

END 
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Sine Wave 


Did you ever go to a computer show 
and see a bunch of CRT terminals just 
sitting there waiting forlornly for 
someone to give a demo on them. It 
was one of those moments when | was 
at DEC that | decided there should bea 
little bit of background activity. And 
why not plot with words instead of the 
usual X’s? Thus SINE WAVE was born 
and lives on in dozens of different 
versions. At least those CRTs don't 
look so lifeless anymore. 


10 PRINT TAB(30);"SINE WAVE" 

20 PRINT TAB(1S);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 
JO PRINT: PRINT: PRINT: PRINT: PRINT 
40 REMARKABLE PROGRAM BY DAVID AHL 
50 B=0 

100 REM START LONG LOOP 

110 FOR T=0 TO 40 STEP .25 

120 A=INT(264+254#S5IN(T)) 

130 PRINT TAB(A); 

140 IF Bet THEN 180 

150 PRINT "CREATIVE" 

160 Bel 

170 GOTO 200 

180 PRINT "COMPUTING" 


190 B=0 
200 NEXT T 
999 END 
SINE WAVE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
CONPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 


CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COHPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COKPUT ING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
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This game simulates a slalom run 
down a course with from one to 25 
gates. The user picks the number of 
gates and has some control over his 
speed down the course. 

If you’re not a skier, here’s your 
golden opportunity to try it with 
minimal risk. If you are a skier, here’s 
something to do while your leg is ina 


cast. 
SLALOM was written by J. Panek CONNAND--? RUN 
while a student at Dartmouth College. RATE YOURSELF AS A SKIER, (1-WORST, 3-BEST)? 1 


THE STARTER COUNTS DOWN... 5.2 e4e cede ne2eentecnGO! 
YOU“RE OFF! 


HERE COMES GATE #1 
9 MPLH. 

OPTION? 2 
13: 4.P.H. 


HERE CONES GATE #2 
13 NLP.H, 
OPTION? 1 
22 HaP.H. 
YOU TOOK OVER MAX. SPEED AND SNAGGED A FLAG! 
YOU TOOK 2.5774 SECONDS 
DO YOU WANT TO RACE AGAIN? YES 
THE STARTER COUNTS DOWN. 2.5. cc4ennSece2enutae G0! 


SLALOM 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


YOU’RE OFF! 
HOW MANY GATES DOES THIS COURSE HAVE (1 10 25)7 12 


HERE COMES GATE #1 


TYPE "INS" FOR INSTRUCTIONS 13 WAP. 
TYPE "MAX" FOR APPROXIMATE MAXIMUN SPEEDS OPTION? 3 
TYPE "RUN" FOR THE BEGINNING OF THE RACE 14 4.P.H. 
COMHAND--? INS CLOSE ONE! 
/*e#SLALOM: THIS IS THE 1976 WINTER OLYNPIC GIANT SLALON. YOU ARE 
THE AMERICAN TEAN’S ONLY HOPE OF A GOLD HEDAL. He cees GATE 2 
v 
Q--TYPE THIS IF YOU VANT TO SEE HOW LONG YOU“VE TAKEN One. 
1--TYPE THIS IF YOU WANT TO SPEED UP A LOT CLOSE ONE! 
2--TYPE THIS IF YOU WANT TO SPEED UP A LITTLE , 
3--TYPE THIS IF YOU WANT TO SPEED UP A TEENSY 
4--TYPE THIS IF YOU WANT TO KEEP GOING THE SANE SPEED ee Re GATE #3 
5--TYPE THIS IF YOU WANT TO CHECK A TEENSY OPTION? 3 
6-~TYPE THIS IF YOU WANT TO CHECK A LITTLE 20 H.P.H. 
7--TYPE THIS IF YOU WANT TO CHECK A LOT 
8--TYPE THIS IF YOU WANT TO CHEAT AND TRY TO SKIP A GATE HERE CONES GATE 84 
THE PLACE TO USE THESE OPTIONS IS WHEN THE COMPUTER ASKS: ones 
20 N.P.H. 
OPTION? 
HERE COMES GATE #5 
GOOD LUCK, 20 HLP.H. 
OPTION? 5 
COMMAND~~? MAX 18 M.P.H. 
GATE MAX CLOSE ONE! 
# M.P.H. 
eiieeienentanal HERE COMES GATE #6 
i 14 18 H.PLH. 
2 18 OPTION? 1 
3 26 23 =4WP.H. 
4 29 
5 «(18 HERE COMES GATE 87 
6 «25 23 H.P.H. 
7 28 OPTION? ! 
B 32 31 H.P.H. 
9 29 YOU TOOK OVER MAX. SPEED AND SNAGGED A FLAG! 
10 = 20 YOU TOOK 23,2587 SECONDS 
"W 29 DO YOU WANT TO RACE AGAIN? NO 
12 «(29 THANKS FOR THE RACE 
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10 PRINT TAB(33); "SLALOM" 1050 RETURN 


20 PRINT TAB(IS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 1060 PRINT "CLOSE ONE!" 

30 PRINT: PRINT: PRINT 1070 RETURN 

310 PRINT “HOW MANY GATES DOES THIS COURSE HAVE (1 TO 25)"; 1080 PRINT S;"H.P.H.” 

320 INPUT V 1090 GOTO 1030 

330 IF ¥>25 THEN 360 1100 LET S=S-INT(RND (1)*(5-3)43) 

340 IF U<t THEN 390 1110 PRINT S;°H.P.H.” 

350 GOTO 1440 1120 GOTO 1030 

360 PRINT "25 IS THE LIMIT" 4130 LET SaS+INT(RND(1)#(10-5)45) 

370 LET ¥=25 1940 GOTO 1090 

380 GOTO 1440 1150 LET S=S-INT(RND{1)9(10-5)+5) 

390 PRINT "TRY AGAIN," 1160 GOTO 1110 

400 GOTO 310 1470 LET S=S+INT(RND(1)#(4-1}41) 

410 PRINT “RATE YOURSELF AS A SKIER, (1-NORST, 3-BEST)"s 1180 GOTO 1110 

420 INPUT A 1170 LET SaS-INT(RND(T)*(4-1)44) 

430 IF A<1 THEN 460 1200 GOTO 1110 

440 IF A>3 THEN 460 1210 PRINT "eesCHEAT" 

450 GOTO 480 1220 IF RND(1)<.7 THEN 1260 

460 PRINT "THE BOUNDS ARE 1-3" 1230 PRINT "YOU HADE IT!" 

470 60 TO4to 1240 LET T3T#1.5 

480 PRINT “THE STARTER COUNTS DOUN...5...4..03e0e2e0efee GO!” 1250 RETURN 

490 REN 1260 PRINT “AN OFFICIAL CAUGHT You!" 

500 LET T=0 1270 PRINT "YOU TOOK"; (T+RND(1))* "SECONDS" 
510 LET S=INTCRND(1)9(18-9)+9) 1280 GOTO 740 

520 PRINT 1290 IF RND(1)<((S-0)80,12+.2 THEN 1320 
525 PRINT “YOURE OFF!" 1300 PRINT "YOU TOOK OVER MAX. SPEED AND HADE IT!" 
530 FOR O=1 TO V 1310 RETURN 

540s READ 1320 PRINT "YOU TOOK OVER MAX. SPEED AND "3 
550 PRINT 1330 IF RND<.5 THEN 1370 

555 PRINT “HERE COMES GATE #";STR#(O) 1340 PRINT "WIPED OUT!” 

560 PRINT S;"H.P.H." 1350 PRINT “YOU TOOK"; (T+RND(1))s "SECONDS" 
570 LET $158 1360 GOTO 740 

580 = PRINT "OPTION"; 1370 PRINT "SNAGGED A FLAG!" 

590 INPUT 01 1380 GOTO 1350 

600 IF 01=0 THEN 970 1390 PRINT "LETS BE REALISTIC, OK? LETS GO BACK AND TRY AGAIN...” 
610 =F 0198 THEN 1420 1400 LET S=S1 

620 IF O1<? THEN 1420 1440 GOTO 550 

630  GOSUB 999 1420 PRINT "WHAT?" 

640 «IF S<7 THEN 1390 1430 GOTO 580 

650 LET T=T#(0-S+1) 1440 PRINT 

660 «IF S>Q THEN 1630 W445 PRINT “TYPE ";CHR$(34)5°INS"3CHR$(34)3" FOR INSTRUCTIONS" 
670 NEXT 0 1450 PRINT “TYPE "ZCHRS(34);"HAX" SCHRS(34)5" FOR APPROXIMATE NAXIHUN SPEEDS" 
680 PRINT "YOU TOOK"; (T#RND(1)3 "SECONDS" 1460 PRINT "TYPE "SCHRO(34);"RUN"ZCHRS(34)2" FOR THE BEGINNING OF THE RACE” 
690 LET Met 1470 PRINT "COMHAND--"; 

700 LET N=H/V 1480 INPUT As 

710 IF NXE.5-(A80.1) THEN 1650 1490 REH 

720 IF N<2.9-(A80,5) THEN 1680 1500 IF A$="INS" THEN 820 

730 IF K<4.4-(A®.01) THEN 1710 1510 TF Ass"HAX" THEN 1550 

740 PRINT “DO YOU WANT TO RACE AGAIN"; 1520 IF AS=°RUN” THEN 410 

750 INPUT Be 1530 PRINT CHRO(34);A8;CHRG(34);" IS AN ILLEGAL CONMAND--RETRY": 
760 REM 1540 GOTO 1480 

770 IF BS="NO" THEN 1740 1550 PRINT "GATE WAX" 

780 IF BO="YES" THEN 480 1560 PRINT " 8 OH.P.H." 

790 PRINT "PLEASE TYPE “YES“ OR “NO‘" 1570 PRINT"--~------- ” 

800 GOTO 740 1580 FOR B=1TOV 

10 STOP 1590 READ Q 

820 PRINT 

825 PRINT “#eeSLALOH: THIS IS THE 1976 WINTER OLYMPIC GIANT SLALOH. YOU ARE” 

830 PRINT THE AMERICAN TEAH’S ONLY HOPE OF A GOLD MEDAL." 

840 PRINT 

845 PRINT " O--TYPE THIS IF YOU WANT TO SEE HOU LONG YOU’VE TAKEN" 

850 PRINT " t--TYPE THIS IF YOU WANT TO SPEED UP A LOT" 1600 PRINT BS" *30 

860 PRINT " 2--TYPE THIS IF YOU WANT TO SPEED UP A LITTLE” 1610 EXT B 

870 PRINT * 3--TYPE THIS IF YOU WANT TO SPEED UP A TEENSY" 1620 GOTO 1470 

880 PRINT " 4--TYPE THIS IF YOU WANT TO KEEP GOING THE SAHE SPEED" 1630 LET T=T+#.5 

890 PRINT * S--TYPE THIS IF YOU WANT TO CHECK @ TEENSY™ 1640 6070 470 

900 PRINT * 6-~TYPE THIS IF YOU UANT TO CHECK A LITTLE” * 1" 
910 PRINT " 7-~TYPE THIS IF YOU WANT TO CHECK A LOT” 1650 PRINT "YOU WON A GOLD KEDAL! 


1660 LET GI1)=6(1)+1 


920 PRINT 1670 GOTO 1730 


Q--TYPE THIS IF YOU WANT TO CHEAT AND TRY TO SKIP A GATE" 


930 PRINT ; 
80 P. Y " 

935 PRINT " THE PLACE TO USE THESE OPTIONS 15 WHEN THE COMPUTER ASKS:” ieee ter ectyestiete SILVER HEDAL 

940 PRINT v. 1700 GOTO 1730 

945 PRINT "OPTION? 1710 PRINT "YOU WON A BRONZE HEDAL“ 

950 PRINT 1720 LET BCH=BA1)41 

955 PRINT " 600D LUCK, 1730 GOTO 740 

957 PRINT " 1740 PRINT "THANKS FOR THE RACE” 

760 GOTO 1470 1750 IF G(1)<1 THEN 1770 

970 PRINT "YOUVE TAKEN"; (T#RHD (1))3 "SECONDS" 1760 PRINT "GOLD MEDALS: ";6(1) 

980 GOTO 580 1770 IF SU1)<1 THEN 1790 

990 ON O1 GOTO 1130,1010,1170,1080,1190,1100,1150,1210 1780 PRINT "SILVER MEDALS1"35(1) 

1000 STOP 


1790 IF BUL)<t THEN 1830 
1010 LET S=S#INT(RND(1)#(5-3)+3) 1800 PRINT "BRONZE MEDALS:"3B(1) 
1020 PRINT 5; °H.P.H. 1810 DATA 14,18, 26,29, 18, 25,28 ,32,29, 20, 29,29, 25,21 ,26,29,20, 21,20 


1030 IF S>@ THEN 1290 1820 DATA 18,26,25,33,31,22 
1040 IF S>@-1 THEN 1060 1830 END 
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Slots 


The slot machine or one-arm bandit 
is a mechanical device that will absorb SLOTS 
coins just about as fast as you can feed CREATIVE COMPUTING NORRISTOUN, NEW JERSEY 
it. After inserting a coin, you pull a 
handle that sets three independent you 
reels spinning. If the reels stop with To 
certain symbols appearing in the pay 


ARE IN THE H&M CASINO, IN FRONT OF ONE OF OUR 
ARHED BANDITS. BET FROM $7 TO $100. 
ULL T 


HE ARM, PUNCH THE RETURN KEY AFTER MAKING YOUR BET. 


line, you get a certain payoff. The YOUR BET? 5 
original slot machine, called the Liber- 
ty Bell, was invented in 1895 by Charles LENON CHERRY BELL 


Fey in San Francisco. Fey refused to 


sell or lease the manufacturing rights, You Lost. _ 
so H.S. Mills in Chicago built a similar, ABATE Noe ARE 8-5 
but much improved, machine called 
the Operators Bell. This has survived YOUR BET? 5 
nearly unchanged to-teday. 

On the Operators Bell and other BAR CHERRY CHERRY 
standard slot machines, there are 20 
symbols on each wheel but they are not DOUBLE I! 
distributed evenly among the objects YOUR oY ANDINGS ARE 10 
(cherries, bar, apples, etc.). Of the AGAIN? Y 
8,000 possible combinations, the ex- 
pected payoff (to the player) is 7,049 or YOUR BET? 10 
$89.11 for every $100.00-put in, one of 
the lowest expected payoffs of all LENON BAR BELL 
casino games. vou Lost 

In the program here, the payoff is . 
considerably more liberal; indeed it AoA, GADINGS ARE $0 
appears to favor the player by 11% — 
i.e.,an expected payoff of $111 foreach YOUR BET? 25 
$100 bet 


The program was originally written BELL 
by Fred Mirabelle and Bob Harper. tt BELL BAR 


DOUBLE! | 
YOU WON! 
YOUR STANDINGS ARE 6 75 
AGAIN? N 


COLLECT YOUR WINNINGS FROM THE H&M CASHIER. 
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500 LET P=P-H 

510 PRINT “YOUR STANDINGS ARE $"P 
520 PRINT "AGAIN"; 

530 INPUT AS 

540 IF At="¥" THEN 140 

550 PRINT 

560 IF P<0 THEN 670 

570 IF P=0 THEN 490 

580 IF P>0 THEN 710 

590 GOTO 1350 

400 IF Y=Z THEN 730 

410 IF Y=? THEN 820 

620 GOTO 1341 

$30 IF Zt THEN 820 

640 GOTO 470 

650 IF Z=1 THEN §20 

660 GOTO 1341 

670 PRINT "PAY UP! PLEASE LEAVE YOUR NONEY ON THE TERWINAL." 
680 GOTO 1350 

690 PRINT"HEY, YOU BROKE EVEN." 
700 GOTO 1350 

710 PRINT “COLLECT YOUR WINNINGS FROM THE HAN CASHIER." 
720 GOTO 1350 

730 IF Z=1 THEN 780 

740 PRINT: PRINT “#eTOP DOLLAR+s" 
750 PRINT “YOU WON!” 

760 P=(CC100N)4H)4P) 

770 GOTO 510 

780 PRINT: PRINT “eee JACKPOT#e4° 
790 PRINT "YOU WON!" 

B00 P=(¢(1008N) +N) +P) 

810 GOTO 510 

G20 PRINTs PRINT "*DOUBLE BARS” 
830 PRINT"YOU WON!” 

840 P=({ (Sen) +4) +P) 

850 B0TO 510 

Q60 PRINT"HOUSE LIMITS ARE $100" 
870 GOTO 160 

680 PRINT"HININUN BET 18 1" 

890 GOTO 160 

900 GOTO 220 

910 PRINT “BAR";s GOSUB 1310 

920 GOTO 330 

930 PRINT "BELL“;: GOSUB 1310 
940 GOTO 330 

950 PRINT “ORANGE";: GOSUB 1310 
960 GOTO 330 

970 PRINT "LEMON"; GBOSUB 1310 


10 PRINT TAB(30); "SLOTS" 980 GOTO 330 

20 PRINT TAB(15); "CREATIVE COMPUTING HMORRISTOUN, NEW JERSEY“ 990 PRINT “PLUM"3: GOSUB 1310 
30 PRINT: PRINT: PRINT 1000 GOTO 330 

100 REN PRODUCED BY FRED NIRABELLE AND BOB HARPER OW JAN. 29, 1973 1010 PRINT “CHERRY"3: GOSUB 1310 
110 REM IT SIMULATES THE SLOT MACHINE. 1020 6OT0 330 

120 PRINT "YOU ARE IN THE H2M CASINO,IN FRONT OF ONE OF OUR” 1030 PRINT “ BAR"}: GOSUB 1310 
130 PRINT “ONE~ARHED BANDITS. BET FROH $1 TO $100." 1040 B0TO 390 

140 PRINT “TO PULL THE ARH, PUNCH THE RETURN KEY AFTER MAKING YOUR BET.” 1050 PRINT " BELL“;: GOSUB 1310 
150 LET Peo 1060 GOTO 390 

160 PRINTs PRINT “YOUR BET"; 1070 PRINT “ ORANGE";: GOSUB 1310 
170 INPUT N 1080 GOTO 390 

180 IF H>100 THEN B40 1090 PRINT ° LEMOW";: GOSUB 1310 
190 IF M<t THEN 880 1100 80TO 390 

200 M=INTIN) 1110 PRINT " PLUH"3: GOSUB 1310 
210 GOSUB 1270 1120 GOTO 390 

220 PRINT 1130 PRINT " CHERRY“;: GOSUB 1310 
230 LET XwINT(GORND(1)41) 1140 GOTO 3970 

240 LET Y=INT(GeRND(1)4+1) 1150 PRINT" BAR" 

250 LET ZsINT(G#RND(1)+1) 1160 GOTO 450 

260 PRINT 1170 PRINT" BELL” 

270 IF X=¥ THEN 910 1180 GOTO 450 

280 IF X=2 THEN 930 1190 PRINT" ORANGE" 

290 IF Xe3 THEN 950 1200 GOTO 450 

300 IF X=4 THEN 970 1210 PRINT" LENON" 

310 IF XeS THEN 990 + 1220 GOTO 450 

320 IF X=é THEN 1010 1230 PRINT" PLUN* 

330 IF Y=1 THEN 1030 1240 GOTO 450 

340 IF Y=2 THEN 1050 1250 PRINT" CHERRY" 

350 IF Y=3 THEN 1070 1260 GOTO 450 

3460 IF ¥=4 THEN 1090 1270 FOR Q4=1 10 10 

370 IF Y=3 THEN 1110 1280 PRINT CHRS(7); 

380 IF Y=é THEN 1130 : 1290 NEXT 04 

390 IF Z=1 THEN 1150 1300 RETURN 

400 IF Z=2 THEN 1170 1310 FOR Tat 10 5 

410 IF 253 THEN 1190 1320 PRINT CHRS(7); 

420 IF Z=4 THEN 1210 1330 HEXT Te 

430 IF 285 THEN 1230 1340 RETURN 

440 IF 294 THEN 1250 1341 PRINTs PRINT "DOUBLET!" 
450 IF X=¥ THEN 600 1342 PRINT"YOU WON!” 

460 IF X=Z THEN 630 1343 P=(( (20H) 4H )4P) 

470 IF Y=Z THEN 650 1344 BOTO 510 

480 PRINT 1350 STOP 


490 PRINT "YOU LOST." ; 9999 END 
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Splat 


SPLAT simulates a parachute jump 
in which you try to open your 
parachute at the last possible moment 
without going splat! You may select 
your own terminal velocity or let the 
computer do it for you. You may also 
select the acceleration due to gravity 
or, again, let the computer do it in 
which case you might wind up on any 
one of eight planets (out to Neptune), 
the moon, or the sun. 
The computer then tells you the - 
height you're jumping from and asks 


for the seconds of free fall. It then SELECT YOUR OUN TERMINAL VELOCITY (YES OR HO)? YES 


divides your free fall time into eight WHAT TERMINAL VELOCITY (HI/HR)? 200 

intervals and gives you progress WANT TO SELECT ACCELERATION BUE TO GRAVITY (YES OR NO)? YES 
reports on your way down. The com- WHAT ACCELERATION (FT/SEC/SEC)? 32 

puter also keeps track of all prior jumps ALTITUDE = 1278 FT 

in the array A and lets you know how TERM.VELDCITY © = 293.333 FT/SEC 4-52 

you compared with previous success- ACCELERATION = 32 FI/SEC/SEC +-5% 

ful jumps. If you want to recall informa- SET THE TIMER FOR YOUR FREEFALL. 

tion from previous runs, then you MRE ue Gee 

should store array A in a disk or tape , 


file and read it in before each run. TIME (SEC) = DIST TO FALL (FT) 


John Yegge created this program ss BBE EEE = 


while at the Oak Ridge Associated I 375 te .os 
Universities. 2.75 1154.98 
4.125 1001.21 
5.5 785.934 
6.875 509.146 
SPLAT 8.25 170.851 

CREATIVE CONFUTING MORRISTOWN, EW JERSEY apie a eaeeeea tee AT T PLUS 8.759738 SECONDS 


REQUIESCAT IN PACE. 

ILL GIVE YOU ANOTHER CHANCE. 
WELCOKE TG “SPLAT” =~ THE GAHE THAT SIMULATES A PARACHUTE DO YOU WANT TQ PLAY AGAIN? YES 
JUMP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE 


MOMENT WITHOUT GOING SPLAT. 
SELECT YOUR OWN TERHINAL VELOCITY (YES OR NO)? YES 


WHAT TERMINAL VELOCITY (HI/HR)? 200 


SELECT YOUR GUN TERMINAL VELOCITY (YES OR NO)? NO WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)? YES 
OK. TERMINAL VELOCITY = 45 HI/HR WHAT ACCELERATION (FT/SEC/SEC)? 32 
UANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)? NB 
FINE. YOURE ON THE SUN. ACCELERATION=8946FT/SEC/SEC ALTITUDE = 9440 FT 
TERH. VELOCITY = 293.333 FI/SEC +-5% 
ALTITUDE = 8680 FT ACCELERATION = 32 FI/SEC/SEC +-5% 
TERM. VELOCITY = 66 FI/SEC +-5% SET THE TIMER FOR YOUR FREEFALL. 
ACCELERATION = 896 FI/VSEC/SEC +-5% HOW MANY SECONDS? 7.5 
SET THE TIMER FOR YOUR FREEFALL. HERE WE 60. 
HOW HANY SECONDS? 8 
HERE WE GO. TIME (SEC) DIST TO FALL (FT) 
TIME (SEC) DIST TO FALL (FT) 0 9440 
sagcssesss prsresseedssersss 937 9424.04 
0 8480 1.87 9384.17 
TERMINAL VELOCITY REACHED AT T PLUS .0731599 SECONDS 2.8425 9314.39 
1 8416.08 3.75 9216.49 
2 8549.7 4.6875 9091.08 
3 8483.39 5.625 8937.56 
4 8417.04 6.5625 8756.12 
5 8350.69 7.5 8546.77 
é e284.44 CHUTE OPEN 
7 ang AMAZING!!! NOT BAD FOR YOUR 2ND SUCCESSFUL JUMP It! 
8 8151.65 DO YOU WANT T& PLAY AGAIN? NO 
CHUTE OPEN PLEASE? NOPE 
AMAZING!!! ROT BAD FOR YOUR 1ST SUCCESSFUL JUMP1 1! YES OR NO PLEASE? NO 
UO YOU WANT TO FLAY AGAIN? YES SSSSSSSS8s. 
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PRINT TAB(33);"SPLAT” 
PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, 
PRINTPRINT©PRINT 
DIM A(42) 
PRINT “WELCOME TO “SPLAT” -- THE GAHE THAT SIMULATES A PARACHUTE” 
PRINT “JUNP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE" 
PRINT “MOMENT WITHOUT GOING SPLAT." 
PRINTsPRINT :D1=0:U=02A=O0:N=OrH=0:DT=INT (9001#RND(1)+1000) 
PRINT " SELECT YOUR OWN TERMINAL VELOCITY (YES GR NO)"sS:INPUT ats 
IF AIS="NO" GOTO 128 
IF AIS<>"YES" THEN PRINT “YES OR NO®S:INPUT A1$:G0TO 120 
PRINT "WHAT TERMINAL VELOCITY (HI/HR}"s:INPUT 1 
VEEV1#(5280/3600) VEVT+ ((VEERND(1)3/20)~((VIFRND(1) 9720) 260T0 135 
VI=ENT(1000#RND(1)) 
PRINT "OK. TERHENAL VELOCITY ="VI"HI/HR” 
VISVE#(5280/3600) sU=U14( (UTERADCT))/209—((VI#RND(1)) £20) 
PRINT "WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR ROJ"S 
INPUT B1$ 
IF BIS="NO" THEN 150 
IF BIS<>"YES" THEN PRINT “YES OR NO“ SSINPUT B1$:GOTO 140 
PRINT “WHAT ACCELERATION (FT/SEC/SEC)"$:INPUT A2 
A=A2¢( (AQ#RND(1))/20)=((A2€RND(1))/20) 26079 205 
ON INTC1$(1O#RND(1)))GOTOIS1, 192,153,194, 155,156,157, 158,159,160 
PRINT*FINE. YOU’RE GN HERCURY. ACCELERATION=12.2FT/SEC/SEC":GOTO161 
PRINT“ALRIGHT. YOURE ON VENUS. ACCELERATION=28.3 FT/SEC/SEC":G010162 
PRINT “THEN YOURE ON EARTH. ACCELERATION=32.16 FI/SEC/SEC":GOTO 163 
PRINT*FINE. YOURE ON THE HOON. ACCELERATION=5.15FT/SEC/SEC":GOTO 144 
PRINT"ALRIGHT. YOURE ON HARS. ACCELERATION=12.5°T/SEC/SEC":G0T0 165 
PRINT*THEN YOURE ON JUPITER. ACCELERATION=85.2FT/SEC/SEC":GOTO 164 
PRINT“FINE. YOURE ON SATURN. ACCELERATION=37.6£1/SEC/SEC":GOTO 167 
PRINT"ALRIGHT. YOURE ON URANUS, ACCELERATION=33.8F1/SEC/SEC":GOT0 148 
PRINT"THEN YOU/RE ON NEPTUNE. ACCELERATION=39.6FT/SEC/SEC":G0T0 169 
PRINT"FINE. YOURE ON THE SUN. ACCELERATION=894F 1/SEC/SEC":GOTO 170 


NEW JERSEY" 


A2212.2:G0TO 145 
AQ=28.3:G0T0 145 
A2=32.16:60T0 145 
A225.09:60T0 145 
A2=42.5:G0TO 145 
A2=B5.2:G60TO 145 
A2237 696070 145 
A2233.8 sG0T0 145 


A2=39.6:G60TO 145 

A2=896:G0TO 145 

PRINT 

PRINT " ALTITUDE ="D1°FT" 

PRINT " TERM. VELOCITY BUUTTFT/SEC 4-52" 

PRINT " ACCELERATION S"AQ"FT/SEC/SEC +-52" 

PRINT "SET THE TIMER FOR YOUR FREEFALL.” 

PRINT "HOW MANY SECONDS"; : INPUT T 700 
PRINT "HERE WE G0.” 7ot 


PRINT "WOW! THAT“S SOME JUMPING. 


OF THE"K"SUCCESSFUL JUKPS" 
PRINT “BEFORE YOURS, ONLY"K-KI"OPENED THEIR CHUTES LOWER THAN” 


PRINT 702 PRINT "YOU DIB.” 
PRINT "TIME (SEC)","DIST TO FALL CET)" 703 GOTO 2000 

PRINT “Sssssecceas", Vressesss san! 710 PRINT “PRETTY GOOD! " K*"SUCCESSFUL JUMPS PRECEDED YOURS AND ONLY" 

FOR I=0 10 T STEP (1/8) 7 PRINT K-K1" OF THEM GOT LOWER THAN YOU DID BEFORE THEIR CHUTES® 

IF I>¥/A GOTO 400 712 PRINT "OPENED." :60T0 2000 

DeB1=((A/2)#1°2) 720 PRINT “HOT BAD. THERE HAVE BEEN“KSUCCESSFUL JUMPS BEFORE yoURS." 

IF B<=0 GOTO 1000 72t PRINT"YOQU WERE BEATEN OUT BY"K-KI“OF THEM. "GOTO 2000 

PRINT 1,B 730 PRINT “CONSERVATIVE ARENT YOU? YOU RANKED ONLY“K-K"IN THE® 

NEXT I 731 PRINT K"SUCCESSFUL JUNFS BEFORE YOURS.":G0TO 2000 

GOTO 500 740 PRINT “HUMPH! DUNT YOU HAVE AMY SPORTING BLOOD? THERE WERE" 

PRINT "TERMINAL VELOCITY REACHED AT T PLUS"Y/A"SECONDS" 741 PRINT K*SUCCESSFUL JUMPS BEFORE YOURS AND YOU CAME IN" K1"JUMPS* 

FOR I=I TR 1 STEP (1/8) 742 PRINT "BETTER THAN THE WORST. SHAPE UP11!"sG0TO 2000 

D=D1~ CCV’ 2/ (280) 14 (UEET-(U/ADDD) 750 PRINT "HEY! YOU PULLED THE RIP CORB MUCH TOO SOON. "K*SUCCESSFUL" 

IF D<=0 GOTO 1010 751 PRINT "JUHPS BEFORE YOURS AND YOU CAME IM NUMBER"K-K1"! GET WITH IT!" 
PRINT 1,D 52 GOTO 2000 

REXT I 800 PRINT “REQUIESCAT IN PACE.":60T0 1950 

PRINT “CHUTE OPEN* 801 PRINT "HAY THE ANGEL OF HEAVEN LEAD YOU INTO FARADISE™:GOTO 1950 
K=02k1=0 G02 PRINT “REST IN PEACE":G0TO 1950 

FOR J=0 TO 42 803 PRINT “SON-OF-A-GUH" :G0TO 1950 

IF ACJ)=0 GOTO 620 804 PRINT “#S282z18":G0TO 1950 

eke 805 PRINT "A KICK IN THE PANTS IS A BOOST IF YOURE HEADED RIGHT":GoTD 1950 
IF DD=A(J) GOTO 400 804 PRINT “HMHM. SHOULD HAVE FICKED A SHORTER TIME.":G0TO 1950 

KEEKI HT 07 PRINT "AUTTER. NUTTER. MUTTER.":G0TO 1950 

NEXT J 808 PRINT "PUSHING UP DAISIES. "260701950 

BoTO 540 809 PRINT "EASY COME, EASY GO.":60TO 1950 

AC SED 1000 PRINT SOR(2#D1/A), "SPLAT" 


IF J>2 THEN 650 

PRINT “AMAZING!!! NOT BAD FOR YOUR “; 
IF J=0 THEN PRINT “1ST "5 

IF J=1 THEN PRINT "OND "3 

TF J=2 THEN PRINT "JRO °5 

PRINT "SUCCESSFUL JUMP!!! ":G0TG 2000 
IF K-KiS=.9eK GOTO 700 

TF R-R(<=. 254K GOTO sa. 


1005 GN INT(1#(10FRND(1)>)G0TO 800,801 ,902,803,904 


7205,806,807 808,809 


TOTO PRINT (V/AD+CCDE-(Y 2/7024) ))70), "SPLAT" 

1020 GOTO 1005 

1950 PRINT’ "I'LL GIVE YOU ANOTHER CHANCE." 6078 2000 
2000 PRINT "DO YOU NANT TO PLAY AGAIN’ Ss INPUT Z$ 


i IF Z#="YES" GOTO 118 


2002 IF Zs="NO" gato Does 


3 PRINT “YES OR NO":G60TO 2000 


IF K-K1¢=.54K GOTO 7 2005 PRINT “PLEASES: INPUT Z¢:1F Z$="YES" THEN 119 
IF KK 2006 TF Z$is"NO" THEN PRINT "YES OR NO “3:6NTO 2005 
IF K-Ki¢=, ont GoTo 740 2007 PRINT “SSSSSSSSSS.":60T0 2046 

GOTO 750 2046 END 
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 §$tars 


In this game, the computer selects a OK, ¥ AM THINKING OF A NUMBER, START GUESSING. 
random number from 1 to 100 (or any 


value you set in Statement 150). You try YOUR GUESS? 50 


ee 

to guess the number and the computer . 
gives you clues to tell you how close YOUR GUESS? 75 
you're getting. One star (*) means hd 
you're far away from the number; seven YOUR GUESS? 25 
stars (*******) means you’re really onene 
close. You get 7 guesses. 

On the surface this game is very YOUR SUESS? 35 
similar to GUESS; however, the guess- 
ing strategy is quite different. See if you YOUR GUESS? 30 
can come up with one or more ap- seneees 
proaches to finding the mystery YOUR GUESS? 31 
number. 


, SORSRERESERESAESRERAER ARTES REEAE TSR TOES RARRE EERE EL! 
Bob Albrecht of People’s Computer YOU GOT IT IN 6 GUESSES!!! LET’S PLAY AGAIN... 


Company created this game. 


10 PRINT TAB(34); "STARS" 
20 PRINT TAB(15);"CREATIVE COMPUTING NORRISTOUN, NEU JERSEY" 
30 PRINTIPRINT:PRINT 
100 REM ### STARS - PEOPLE’S COMPUTER CENTER, MENLO PARK, CA 
140 REM #s¢ A IS LIMIT ON NUMBER, M IS NUMBER OF GUESSES 
STARS 150 A=100sH=7 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 170 INPUT "DO YOU WANT INSTRUCTIONS" ;A$ 
190 IF LEFTS(AS,1)="N" THEN 280 
200 REM ##* INSTRUCTIONS ON HOW TO PLAY 
210 PRINT "I AM THINKING OF A WHOLE NUMBER FROM 1 TO“3A 


DO YOU UANT INSTRUCTIONS? YES 220 PRINT "TRY TO GUESS MY NUMBER. AFTER YOU BUESS, I" 
I AM THINKING OF A WHOLE NUMBER FROM 1 TO 100 230 PRINT "WILL TYPE ONE OR WHORE STARS (*#). THE MORE” 
TRY TO GUESS MY NUMBER. AFTER YOU GUESS, I 240 PRINT "STARS I TYPE, THE CLOSER YOU ARE TO MY NUMBER." 
WILL TYPE ONE OR NORE STARS (#), THE WORE 250 PRINT "OWE STAR (#) MEANS FAR AUAY, SEVEN STARS (e#eete0)" 
STARS I TYPE, THE CLOSER YOU ARE TO HY NUMBER. 260 PRINT “MEANS REALLY CLOSE! YOU GET";H; "GUESSES." 
ONE STAR (#) HEANS FAR AVAY, SEVEN STARS (#440428) 270 REM #9¢ COMPUTER THINKS OF A NUMBER 
MEANS REALLY CLOSE! YOU GET 7 GUESSES. 280 PRINT 
290 PRINT 
300 XeINTCA*RND(1)41) 
OK, I AM THINKING OF A NUMBER, START GUESSING. 310 PRINT "OK, I AN THINKING OF A NUMBER, START SUESSING.* 
320 REM ##* GUESSING BEGINS, HUMAN GETS M GUESSES 
YOUR GUESS? 50 330 FOR K=1 TO 4 
#et 340 PRINT 
350 PRINT "YOUR GUESS*: 
YOUR GUESS? 25 360 INPUT G 
FEREEEEERERERHERAETAERRERFESEARERSE SAREE EEE OED ERTS LT! 370 IF G=X THEN 600 
YOU GOT IT IN 2 GUESSES!!! LET’S PLAY AGAIN... 380 D=ABS(G-X) 


390 IF D>=64 THEN 510 
400 IF D>=32 THEN 500 
410 IF D>=16 THEN 490 


OK, I AM THINKING OF A NUMBER, START GUESSING. 420 IF D>=8 THEN 480 
430 IF D>=4 THEN 470 
YOUR GUESS? 50 440 IF D>=2 THEN 460 
eee 450 PRINT "ae"; 
460 PRINT “#"; 
YOUR GUESS? 75 470 PRINT “ats 
a 480 PRINT "e"s 
490 PRINT "#"s 
YOUR GUESS? 25 300 PRINT "e's 
+8ee S10 PRINT "“#"s 
520 PRINT 
YOUR GUESS? 15 530 HEXT K 
ee 540 REN #8¢ DID NOT GUESS IN H GUESSES 
550 PRINT 
YOUR GUESS? 35 560 PRINT “SORRY, THAT’S";M;"GUESSES, NUMBER WAS" SX 
FenSet 580 GOTO 280 
590 REM #ee UE HAVE A WINNER 
YOUR SUESS? 38 600 FOR N=1 TO 50 
Feet 610 PRINT "a": 
620 NEXT W 
YOUR GUESS? 33 630 PRINT "Elin 
seeeees 640 PRINT “YOU GOT IT IN“SK;"GUESSES!!! LET“S PLAY AGAIN..." 
50 GOTO 280 
SORRY, THAT“S 7 GUESSES, NUMBER WAS 32 660 END 
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Steck Market 


This program “plays” the stock Stock INITIALS 
: : INT. BALLISTIC KISSILES rat 
market. You will be given $10,000 and RED CROSS OF AMERICA RCA 
may buy or sell stocks. Stock prices LICHTENSTEIN, BUHRAP & JOKE LBJ 
and trends are generated randomly; OENGURER PONS erane. pe 
therefore, this model does not repre- 
sent exactly what happens on the NEW YORK STOCK EXCHANGE AVERAGE: 113.45 
exchange. (Depending upon your 
point of view, you may feel this is quite TOvAL ewe seers ant : ' 000 
a good representation!) A RE o 
; TOTAL ASSETS ARE $ 10000 
Every trading day, a table of stocks, 
their prices, and number of shares in WHAT 19 YOUR TRANSACTION IW 
your portfolio is printed. Following IBH? 10 
f sags REA? 20 
this, the initials of each stock are LBu? 10 
printed followed by a question mark. ABC? 0 
You indicate your transaction in CBS? 0 


number of shares — a positive number 
to buy, negative number to sell, or 0 to 
do no trading. A brokerage fee of 1% is 
charged on all transactions (a 


saeeeeeeee END OF DAY’S TRADING 


bargain!). Note: Even if the value of a eas rece on ARE HOLDINGS 

stock drops to zero, it may rebound RCA 79.5 20 

again — then again, it may not. LBJ 142.25 10 
This program was created by D. td 139.75 ° 


Pessel, L. Braun, and C. Losik of the 
Huntington Computer Project at 


SUNY, Stony Brook, N.Y. 
NEW YORK STOCK EXCHANGE AVERAGE: 110.85 


TOTAL STOCK ASSETS ARE $ 3955 
TOTAL CASH ASSETS ARE $ 5899.95 
TOTAL ASSETS ARE $ 9808.95 


PRICE/SHARE 
98.25 
83,75 
144,75 
137 
103.5 
VALUE NET PRICE CHANGE 
942.5 <4 
1570 “4.25 
1422.5 -2.5 
9 2.75 
0 “3 


NET CHANGE: -2.6 


DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)7 1 


STOCK MARKET 
CREATIVE COMPUTING HORRISTOUN, HEU JERSEY PONE nt TRANSACTION IN 
REA? -5 
LBU? -10 
ABCT 0 


CBS? 9 
DO YOU WANT THE INSTRUCTIONS (YES~TYPE 1, NO-TYPE O37 1 


eeeccapeee END OF DAY’S TRADING 
THIS PROGRAM PLAYS THE STOCK MARKET. YOU WILL BE GIVEN 


$10,000 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL 


BE GENERATED RANDONLY AND THEREFORE THIS MODEL DOES NOT stock PRICE/SHARE HOLDINGS 
REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE. A TABLE 1bH 82.75 20 

OF AVAILABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES REA 47.75 10 

IN YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING THIS, THE LBd 125.75 10 
INITIALS OF EACH STOCK WILL BE PRINTED WITH A QUESTION ABC 124.25 10 
NARK. HERE YOU INDICATE A TRANSACTION. TO BUY A STOCK CBS a4275 0 


TYPE +HNN, TO SELL A STOCK TYPE “NNN, WHERE NNN IS THE 
NUMBER OF SHARES. A BROKERAGE FEE OF 1% WILL BE CHARGED 
ON ALL TRANSACTIONS, NOTE THAT IF A STOCK“S VALUE DROPS 


TO ZERO IT HAY REBOUND TO A POSITIVE VALUE AGAIN. YOU NEW YORK STOCK EXCHANGE AVERAGE: 96.45 
HAVE $10,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS. 

(HOTE: TO GET A “FEEL” FOR THE MARKET RUN FOR AT LEAST TOTAL STOCK ASSETS ARE $ 4802.5 

10 DAYS) TOTAL CASH ASSETS ARE $ 3987.74 
wort GOOD LUEK!----~ TOTAL ASSETS ARE $ 8790.24 
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VALUE NET PRICE CHANGE 
1655 71.75 

677.9 -2.25 

1257.5 ~b.9 

1212.5 7 

0 “4.9 


NET CHANGE: ~4.4 


10 PRINT TAB(30); "STOCK MARKET" 

20 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 

30 PRINT: PRINT: PRINT 

100 REM STOCK MARKET SIMULATION “STOCK 

101 REN REVISED 8/18/70 (D. PESSEL, L. BRAUN, C. LOSIK) 

102 REH IHP VRBLS: A-HRKT TRND SLP; BO-BRKRGE FEE; C-TTL CSH ASSIS; 
103 REM CS-TTL CSH ASSTS (TEMP); CCL)-CHNG IN STK VAL; D-TTL ASSTS; 
104 REM E1,E2-LRG CHNG MISC; I-STCK M; I1,12-STCKS WU LRG CHNG; 

105 REM NI,N2-LRG CHNG DAY CNTS; PS-TTL BAYS PRCHSS; PC(I)-PRIFL CNTNTS; 
106 REM Q9-NEW CYCL?; S4-SGN OF A; SS-TTL DYS SLS; S(1)-VALUE/SHR; 
107 REN T-TTL STCK ASSTS; TS-TTL VAL OF TRNSCTNS; 

108 REM W3-LRG CHNG; X1-SHLL CHNG(<$1)3 24,25,Z6-NYSE AVE.; Z(1)-TRNSCT 
140 DIM $(5),P(5),265), C05) 
142 REM SLOPE OF MARKET TREND:A 
443 LET X51 

114 LET ASINTCCRND(X)/10)#1004.5)/100 

115 LET 150 

116 LET X9=0 

117 LET Niz0 

118 LET N2=0 

119 LET Ei=0 

120 LET E2=0 

121 REM INTRODUCTION 

122 PRINT "DO YOU WANT THE INSTRUCTIONS (YES-TYPE 1, NO-TYPE 0)"; 
123 INPUT 29 

124 PRINT 

125 PRINT 

126 IF Z9<1 THEN 200 

130 PRINT “THIS PROGRAM PLAYS THE STOCK HARKET. YOU WILL BE GIVEN" 
132 PRINT “$10,000 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL" 
134 PRINT “BE GENERATED RANDOKLY AND THEREFORE THIS HODEL DOES NOT" 
135 PRINT "REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE. A TABLE" 
136 PRINT "QF AVAILABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES 
137 PRINT “IN YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING THIS, THE* 
138 PRINT “INITIALS OF EACH STOCK WILL BE PRINTED WITH A QUESTION" 
139 PRINT “HARK. HERE YOU INDICATE A TRANSACTION. TO BUY A STOCK" 
140 PRINT “TYPE #NNR, TO SELL A STOCK TYPE -NNN, WHERE NNN IS THE" 
141 PRINT “NUMBER OF SHARES. A BROKERAGE FEE OF 1% WILL BE CHARGED" 
142 PRINT “ON ALL TRANSACTIONS. NOTE THAT IF & STOCK’S VALUE DROPS" 
143 PRINT “TO ZERO IT HAY REBOUND TO A POSITIVE VALUE AGAIN. YOU" 
144 PRINT “HAVE $10,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS.” 
145 PRINT “(NOTE: TO GET A “FEEL” FOR THE HARKET RUN FOR AT LEAST" 
146 PRINT “10 DAYS)" 

147 PRINT *----- GOOD LUCKI---~- " 

200 REH GENERATION OF STOCK TABLE; INPUT REQUESTS 

210 REK INITIAL STOCK VALUES 

220 LET $(1)2100 

230 LET $(2)=85 

240 LET S(3)=150 

250 LET S(4)=140 

260 LET S(S)=110 

265 REM INITIAL T8 - # DAYS FOR FIRST TREND SLOPE (A) 

266 LET TO=INT(4.79#RND(X)41) 

267 REN RANDOMIZE SIGN OF FIRST TREND SLOPE (A) 

268 IF RND(X)>.5 THEN 270 

269 LET Az-A 

270 REM RANDOMIZE INITIAL VALUES 

280 GOSUB 830 

285 REN INITIAL PORTFOLIO CONTENTS 

290 FOR f=1 10 5 

300 LET P(T)=0 

305 LET Z(1)=0 

310 NEXT I 

320 PRINT 

330 PRINT 

333 REM INITIALIZE CASH ASSETS:C 

335 LET C=#10000 

338 REM PRINT INITIAL PORTFOLIO 

340 PRINT "STOCK", ","INITIALS", “PRICE/SHARE™ 

350 PRINT “INT. BALLISTIC MISSILES"," IBH",S(1t) 

352 PRINT “RED CROSS OF ANERICA",” REA",S(2) 


(SANE FOR ALL STOCKS) 


354 PRINT “LICHTENSTEIN, BUMRAP & JOKE"," LBJ",S(3) 
356 PRINT “AKERICAN BANKRUPT CO.",* ABC",S(4) 
358 PRINT “CENSURED BOOKS STORE*,” €BS",5(5) 


340 PRINT 

361 REM NYSE AVERAGE:Z5; TEMP. VALUEsZ4; NET CHANGESZ6 
363 LET 24825 

364 LET 2520 

365 LET T=0 

370 FOR T=1 TO 5 

75 LET 25*Z5+5(1) 

380 LET T#T+S(L)¥P (1) 

390 NEXT I 

391 LET Z5=2NT(100%(25/5)+.5)/100 

392 LET Z62ENT( (25-24) #1004.5)/100 

393 REM TOTAL ASSETS:D 

394 LET D=T+e 

395 IF X9>0 THEN 3978 

396 PRINT “NEW YORK STOCK EXCHANGE AVERAGE: "25 
397 GOTO 399 


398 PRINT “NEW YORK STOCK EXCHANGE AVERAGE: "ZS" NET CHANGE: "Zé 
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379 PRINT 
400 LET T=INT(100T+.5)/100 


401 PRINT “TOTAL STOCK ASSETS ARE 9"5T 
403 LET C=INT(1000C+.5)/100 
405 PRINT "TOTAL CASH ASSETS ARE 7c 
407 LET D=INT(1008D+.5)/100 
408 PRINT "TOTAL ASSETS ARE $"50 


410 PRINT 

411 IF X920 THEN 4144 

412 PRINT "DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 02°; 

413 INPUT 09 

ALA IF G9<1 THEN 998 

416 REX INPUT TRANSACTIONS 

420 PRINT “WHAT IS YOUR TRANSACTION IN" 

430 PRINT “IBH": 

AKO INPUT 21) 

450 PRINT "RCA"; 

460 INPUT 2(2) 

470 PRINT "LBU"; 

480 INPUT 2(3) 

490 PRINT "ABC"; 

$00 INPUT 2(4) 

510 PRINT "CBS"; 

520 INPUT Z(5) 

525 PRINT 

530 REN TOTAL DAY’S PURCHASES IN $:P5 

540 LET P5=0 

550 REN TOTAL DAY’S SALES IN $:S5 

560 LET $530 

570 FOR [#1 TO 5 

575 LET Z(1)#INT(Z(1)4.5) 

580 IF Z(1)<=0 THER 610 

590 LET PS=P5+Z(1)8S¢1) 

600 80T0 620 

610 LET S5=S5-2(1)8G(1) 

612 IF -Z¢€1)<=P(L) THEN 620 

614 PRINT “YOU HAVE OVERSOLD A STOCK; TRY AGAIN." 

416 GOTO 420 

620 NEXT I 

622 REM TOTAL VALUE OF TRANSACTIONS: TS 

625 LET T5S=P5+55 

4630 REM BROKERAGE FEE:B5 

640 LET BS=INT(.01%759100+.5)/100 

450 REM CASH ASSETS=0LD CASH ASSETS~TOTAL PURCHASES 
652 REK -BROKERAGE FEES+TOTAL SALES:CS 

654 LET CS=C~P5-B5+S5 

656 IF C5>=0 THEN 674 

658 PRINT “YOU HAVE USED $"-C5" HORE THAN YOU HAVE.” 
6460 GOTO 420 

674 LET CCS 

475 REN CALCULATE NEW PORTFOLIO 

680 FOR 11 TO § 

690 LET PCL) =P(1)4Z(1) 

700 HEXT I 

710 REN CALCULATE NEW STOCK VALUES 

720 GOSUB 830 

750 REN PRINT PORTFOLIO 

751 REM BELL RINGING-DIFFERENT ON MANY COMPUTERS 

752 FOR I=1 TO 20 
753 PRINT CHRS(135); 
754 NEXT I 

755 PRINT 

756 PRINT “seseeserse 
757 PRINT 

758 PRINT 

759 IF X9<1 THEN 769 
769 PRINT “STOCK", "PRICE/SHARE", "HOLDINGS" ,“VALUE","NET PRICE CHANGE" 
770 PRINT "IBM", S(t), PCT), SCHMPCT), CCL) 

771 PRINT "REA", §(2), P(2}, $¢2)8P(2), C(2) 

772 PRINT “LBJ", S(3), PCS), S(3)#P(3), CO) 

773 PRINT "ABC", S(4), P(A), S(4)#P(4), CLA) 

274 PRINT "CBS", 9(5), PCS), $(5)4P(5), C(5) 

275 LET X9=1 

280 PRINT 

790 PRINT 
B10 GOTO 360 
829 REM NEW STOCK VALUES ~ SUBROUTINE 
30 REM RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUS 
831 REX DAY’S VALUES 
832 REA N1,N2 ARE RANDOM NUMBERS OF DAYS WHICH RESPECTIVELY 
33 REX DETERMINE WHEN STOCK 11 WILL INCREASE 10 PTS. AND STOCK 
834 REHM 12 WILL DECREASE 10 PTS. 
G40 REM IF Ni DAYS HAVE PASSED, PICK AN Il, SET E1, DETERMINE NEU NJ 
G41 IF N1>0 THEN 850 
OAS LET L1=1NT(4.999RND(X) 41) 
O46 LET NISINT(A9P#RND(XI41} 
a7 LET Et=t 
850 REM IF N2 DAYS HAVE PASSED, PICK AN 12, SET E2, DETERMINE NEU N2 
851 IF N20 THEN 840 
O55 LET L2s1NT(A.99#RND(X)41) 
856 LET N2=LHT(4.999RND(X)41) 


END OF DAY’S TRADING" 


857 
860 
861 
862 
870 
900 
910 
WS 
914 
WN? 
920 
921 
922 
925 
926 
927 
930 
on 
935 
936 
937 
938 
999 
Gad 
945 
947 
948 


LET E224 

REN DEDUCT ONE DAY FROM NI AND N2 
LET NI=NI~1 

LET N2=N2-1 

REM LOOP THROUGH ALL STOCKS 
FOR I=1 10 5 

LET Xt=RMD(X) 

IF X4>.25 THEN 920 

LET X13.25 

GOTO 935 

TF X{>.50 THEN 925 

LET X1#.50 

GOTO 935 

IF X1>.75 THEN 930 

LET Xt#.75 

GOTO 935 

LET X120.0 

REH BIG CHANGE CONSTANT: U3 
LET W3=0 

IF E1<1 THEN 945 

TF INTCIU+.S)COINTCL+.5) THEN 945 

REM ADD 10 PTS. TO THIS STOCK; RESET £1 
LET U3=10 

LET Ei=0 

IF E2<1 THEN 955 

TF INT(124.5)<>INT(1+.5) THEW 955 

REM SUBTRACT 10 PTS. FROM THIS STOCK; 


(SET TO ZERO INITIALLY) 


RESET E2 


de 
Ma) 
s 
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949 
953 
954 
955 
956 
957 
960 
964 
965 
966 
967 
970 
972 
973 
974 
980 
985 
786 
990 
992 
993 
994 
995 
997 
998 
999 


LET W3=ug-10 

LET E2=0 

REN C(I) 18 CHANGE IN STOCK VALUE 

LET CCLDEENT CASS (1) +X14+INT(3-69RND(X) +5) 403 
LET CCL)=INT( 100080 (7)+,5)/100 

LET S(D)=S(I) +01) 

IF S€1)>0 THEN 967 

LET C(1)«0 

LET S(1)s0 

GOTO 970 

LET SCL)SINT(10085(1)+.5)/100 

NEXT I 

REM AFTER T8 DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE 
LET T@=T8-1 

IF TA<1 THEN 985 

RETURN 

REK RANDOHLY CHANGE TREND SIGN AND SLOPE (A), AND DURATION 
REM OF TREND (78) 

LET T8=INT(4.99#RND(X)41) 

LET A=INT((RHDCX)/10)#1004+.5)/100 

LET S4=RND(X) 

IF $4<=,5 THEN 997 

LET As~A 

RETURN 

PRINT "HOPE YOU HAD FUN! 1" 

END 


Super Star Trek 


Brief History 


Many versions of Star Trek have been kicking around 
various college campuses since the late sixties. | recall 
playing one at Carnegie-Mellon Univ. in 1967 or 68, and a 
very different one at Berkeley. However, these were a far 
cry from the one written by Mike Mayfield of Centerline 
Engineering and/or Custom Data. This was written for an 
HP2000C and completed in October 1972. It became the 
“standard” Star Trek in February 1973 when it was put in 
the HP contributed program library and onto a number of 
HP Data Center machines. 

In the summer of 1973, | converted the HP version -to 
BASIC-PLUS for DEC’s RSTS-11 compiler and added a few 
bits and pieces while | was at it. Mary Cole at DEC 
contributed enormously to this task too. Later that year | 
published it under the name SPACWR (Space War — in 
retrospect, an incorrect name) in my book 1/07 Basic 
Computer Games, \t is difficult today to find an interactive 
computer installation that does not have one of these 
versions of Star Trek available. 


Quadrant Nomenclature 


Recently, certain critics have professed confusion as to 
the origin of the ‘‘quadrant’” nomenclature used on all 
standard CG (Cartesian Galactic) maps. Naturally, for 


anyone with the remotest knowledge of history, no \ an ARes IV priv’ IV 
explanation is necessary; however, the following synopsis 
should suffice for the critics: 

As every schoolboy knows, most of the intelligent 2 ; RiGee IV | Wee IV 


civilizations in the Milky Way had originated galactic 
designations of their own choosing well before the Third 
Magellanic Conference, at which the so-called '’2° Agree- 3 PROCYON CAPELLA 

ment’ was reached. In that historic document, the partici- | Hot IV | Hoo Iv 
pant cultures agreed, in all two-dimensional representations 
of the galaxy, to specify 64 major subdivisions, ordered as 
an 8 x 8 matrix. This was partially in deference to the Earth 
culture (which had done much in the initial organization of 
the Federation), whose century-old galactic maps had 
always shown 16 major regions named after celestial 
landmarks of the Earth sky. Each of these regions was 
divided into four “quadrants,” designated by ancient 
“Roman Numerals” (the origin of which has been fost). 

To this day, the official logs of starships originating on 
near-Earth starbases still refer to the major galactic areas as 
“quadrants.” 

The relation between the Historical and Standard 
nomenclatures is shown in the simplified CG map below. 


4 VEGA BETELGEUSE 
I Hood EV | HN Wl IV 


5 CANOPUS ALDEBARAN 
I HEME EV | Hat IN 


6 ALTAIR REGULUS 
{ ho oN | | I 


7 SAGITTARIUS ARCTURUS 
| Wooo IV | Wooo IV 


8 POLLUX SPICA 
I oH OW | Ls 


®Designates trademark of Paramount Pictures Corpora- 
tion. Used by permission of Paramount Pictures Corpo- 
ration. 
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Super Star Trek'Rules and Notes 
by Robert Leedom and David Ahl 


1. OBJECTIVE: You are Captain of the starship ‘’Enter- 
prise’? with a mission to seek and destroy a fleet of Klin- 
gon? warships (usually about 17) which are menacing the 
United Federation of Planets. You have a specified 
number of stardates in which to complete your mission. 


supplying your ship. 


2. You will be assigned a starting position somewhere in 
the galaxy. The galaxy is divided into an 8 x 8 quadrant 
grid. The astronomical name of a quadrant is called out 
upon entry into a new region. (See “Quadrant Nomencla- 
ture.) Each quadrant is further divided into an 8 x 8 sec- 
tion grid. 


3. On a section diagram, the following symbols are used: 


Starbase 
Star 


Enterprise 


>le< 
Klingon 


4. You have eight commands available to you. (A detailed 

description of each command is given in the program in- 

structions.) 
NAV Navigate the Starship by setting course and 

warp engine speed. 

Short-range sensor scan (one quadrant) 

Long-range sensor scan (9 quadrants} 

Phaser? control (energy gun) 

Photon torpedo control 

Shield control (protects against phaser fire} 

Damage and state-of-repair report 

Call library computer 


SRS 
LRS 
PHA 
TOR 
SHE 
DAM 
COM 


5. Library computer options are as follows (more com- 
plete descriptions are in program instructions): 


Cumulative galactic record 
Status report 

Photon torpedo course data 
Starbase navigation data 
Direction/distance calculator 
Quadrant nomenclature map 


mABWNH-— Oo 


6. Certain reports on the ship’s status are made by officers 
of the Enterprise who appeared on the original TV Show 
—Spock,? Scott,t Uhura,* Chekov,? etc. 


7. Klingons are non-stationary within their quadrants. If 
you try to maneuver on them, they will move and fire on 
you. 


8. Firing and damage notes: 


A. Phaser fire diminishes with increased distance be- 
tween combatants. 

B. Ifa Klingon zaps you hard enough (relative toyour 
shield strength) he will generally cause damage to 
some part of your ship with an appropriate ‘‘Dam- 
age Contro!” report resulting. 

C. If you don’t zap a Klingon hard enough (relative to 
his shield strength) you won’t damage him at all. 
Your sensors will tell the story. 

D. Damage control will let you know when out-of- 
commission devices have been completely re- 
paired. 


9. Your engines will automatically shut down if you should 
attempt to leave the galaxy, or if you should try to maneu- 
ver through a star, a Starbase, or— heaven help you—a 
Klingon warship. 


10. In a pinch, or if you should miscalculate slightly, some 
shield control energy will be automatically diverted to 
warp engine control (if your shields are operational!). 


11. While you’re docked at a Starbase, a team of tech 1i- 
cians can repair your ship (if you’re willing for them to 
spend the time required —and the repairmen a/ways un- 
derestimate...). 


12. If, to save maneuvering time toward the end of the 
game, you should cold-bloodedly destroy a Starbase, you 
get a nasty note from Starfleet Command. If you destroy 
your /ast Starbase, you lose the game! (For those who 
think this is too harsh a penalty, delete lines 5360-5390, 
and you'll just get a “you dumdum!"’-type message on all 
future status reports.) 


13. End game logic has been ‘‘cleaned up” in several 
spots, and it is possible to get a new command after suc- 
cessfully completing your mission (or, after resigning 
your old one). 


14. For those of you with certain types of CRT/keyboards 
setups (e.g. Westinghouse 1600), a ‘‘bell’’ character is in- 
serted at appropriate spots to cause the following items to 
flash on and off on the screen: 


* The Phrase ’*RED*” (as in Condition: Red) 
+The character representing your present quadrant in 
the cumulative galactic record printout. 


15. This version of Star Trek was created for a Data Gen- 
eral Nova 800 system with 32K or core. So that it would fit, 
the instructions are separated from the main program via 
a CHAIN. For conversion to DEC BASIC-PLUS, Statement 
160 (Randomize) should be moved after the return from 
the chained instructions, say to Statement 245. For Altair 
BASIC, Randomize and the chain instructions should be 
eliminated. 


+ Designates trademark of Paramount Pictures Corpora- 
tion. Used by permission of Paramount Pictures Corpo- 
ration. 
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Program Listing - Instructions 


REY INSTRUCTIONS FOR "SUPER STARTREK" 
FOR 1l=1 TO 12: PRINT:NEXT 1 


HAR 52 1978 


PRINT TABC 12) 3 (eo Rd OG RGR i a aE oki eck 1 

PRINT TABC 1G) 3% * 

PRINT TABC1B)3 * 

PRINT TABCI@)3 * * SUPER STAR TREK * * ” 

PRINT TABC123 "tt *e 

PRINT TABC 1G) 3 't* eae 

PRINT TABC 1) 3 (Heo Sa HOR I RIG IO IRI ACI ROR aR fo ak ab aka oF 

FOR I=1 TO 8: PRINT:NEXT I 

INPUT "DO YOU NEED INSTRUCTIONS CY/N)"SKS:1F KS="'N™ THEN 23906 


PRINT 

PRINT “TURN THE TTY ON-LINE AND HIT ANY KEY EXCEPT RETURN" 
IF INPC1)=213 THEN 46 

POKE 1229,2:POKE 1237+3:NULL 1} 


9@ PRINT" INSTRUCTIONS FOR 'SUPER STAR TREK’™ 

130 PRINT 

11@ PRINT'1. WHEN YOU SEE \COMMAND ?\ PRINTED. ENTER ONE OF THE LEGAL" 
128 PRINI" COMMANDS (NAVs SRS» LMSs PHAs TORs SHEs DAMs COM, OR XXX) »" 

130 PRINT"2. IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND, YOU'LL GET A SHOR 
” 

14@ PRINT" LIST OF THE LEGAL COMMANDS PRINTED OUT." 

152 PRINT'3. SOME COMMANDS REQUIRE YOU TO ENTER DATA (FOR EXAMPLE: THE" 
16 PRINT" 'NAV' COMMAND COMES BACK WITH 'COURSE (1-9) ?"-) IF You" 
178 PRINT” TYPE IN ILLEGAL DATA (LIKE NEGATIVE NUMBERS)» THAT GOMMAN 
pe 

189 PRINT" VILL BE ABORTED" 

19% PRINT 

278 PRINT" THE GALAXY I$ DIVIDED INTO AN & X 8 QUADRANT GRID.” 

280 PRINT'AND EACH QUADRANT I$ FURTHER DIVIDED INTO AN 8 X 8 SECTOR GRID 
" 

29G PRINT 

383 PRINT" YOU WILL BE ASSIGNED A STARTING POINT SOMEWHERE IN THE" 
318 PRINT"GALAXY TO BEGIN A TOUR OF DUTY AS COMMANDER OF THE STARSHIP" 
326 PRINT"\ENTERPRISE\} YOUR MISSION: TO SEE AND DESTROY THE FLEET OF” 
330 PRINT"KLINGON WARVHIPS WHICH ARE MENAGING THE UNITED FEDERATION OF" 
34% PRINT"PLANETS." 

36 PRINT 

373 PRINT" YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS GAPTA 
in" 

380 PRINIVOF THE STARSHIP ENTERPRISE: " 

385 PRINT 

390 PRINT"\NAV\ COMMAND = WARP ENGINE CONTROL -~"* 

423 PRINT" GOURSE IS IN A CIRCULAR NUIERICAL 4 3 2" 

418 PRINT" VECTOR ARRANGEMENT AS SHOWN coe et 

428 PRINT" INTEGER AND REAL VALUES MAY BE eet! 

43% PRINT" USED. (THUS COURSE 1-5 15 HALF~ Boccokeer 1H 

44 PRINT™ WAY BETWEEN 1 AND 2 coat 

458 PRINT" oe et 

468 PRINT" VALUES MAY APPROACH 9-8» WHICH 6 7 8” 

47@ PRINT" ITSELF 15 EQUIVALENT TO 1-8" 

48@ PRINT” COURSE" 

498 PRINT" ONE WARP FAGTOR 1S THE SIZE OF " 

503 PRINT" ONE QUADTANT. THEREFORE, TO GET" 

$13 PRINT" FROM QUADRANT 6/5 TO 5.5+ YOU WOULD" 

52G PRINT" USE COURSE 3. WARP FAGTOR 1." 

532 PRINT 

548 PRINT"\SRS\ COMMAND = SHORT RANGE SENSOR SCAN" 

550 PRINT" SHOWS YOU A SCAN OF YOUR PRESENT QUADRANT." 

555 PRINT 

56 PRINT" SYMBOLOGY ON YOUR SENSOR SCREEN IS AS FOLLOWS:" 

578 PRINT" <#> = YOUR STARSHIP'S POSITION" 

582 PRINT” K+ = KLINGON BATILE CRUISER" 

59B PRINT" >i< = FEDERATION STARBASE ( REFUEL/REPALR/RE-ARM HERE!) 
" 

6@@ PRINT” * = STAR" 

685 PRINT 

61% PRINT" A CONDENSED ‘STATUS REPORT’ WILL ALSO BE PRESENTED." 

622 PRINT 

649 PRINT"\LRS\ COMMAND = LONG RANGE SENSOR SCAN" 

65@ PRINT" SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE" 
666 PRINT" OF THE ENTERPRISE (WHICH 1S IN THE MIDDLE OF THE SCAN)" 
678 PRINT" THE SCAN IS GODED IN THE FORM \@##\s WHERE TH UNITS DIGIT 
" 

680 PRINT" L$ THE NUMBER OF STARSs THE TENS DIGIT 1S THE NUMBER OF" 
698 PRINT STARBASESs AND THE HUNDRESDS DIGIT 1S THE NUMBER OF" 

788 PRINT KLINGONS +" 

7@5 PRINT 

706 PRINT" EXAMPLE ~ 287 = 2 KLINGONS, NO STARBASES, & 7 STARS." 

710 PRINT 

720 PRINT’\PHA\ COMMAND = PHASER CONTROL.” 

738 PRINT" ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRUISERS BY “ 
748 PRINT" ZAPPING THE WITH SUITABLY LARGE UNITS OF ENERGY TO” 

756 PRINT" DEPLETE THELR SHIELD POWER. C(REMBER» KLINGONS HAVE" 

762 PRINT" PHASERS TOO!" 

77 PRINT 

78@ PRINT"\TOR\ COMMAND = PHOTON TORPEDO CONTROL" 

79% PRINT" TORPEDO COURSE IS THE SAME AS USED IN WARP ENGINE CONTROL 
" 

828 PRINT" LF YOU HIT THE KLINGON VESSEL» HE 1S DESTROYED AND" 

81 PRINT" CANNOT FIRE BACK AT YOU. IF YOU'MISSs YOU ARE SUBJECT TO 
" 

820 PRINT" HIS PHASER FIRE. IN ELTHER CASEs YOU ARE ALSO SUBJECT TO 
" 

825 PRINI" THE PHASER FIRE OF ALL OTHER KLINGONS IN THE QUADRANT." 

839 PRINT 

835 PRINT" THE LIBRARY-COMPUTER (\COM\ COMMAND) HAS AN OPTION TO " 

849 PRINT” COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2)" 

85 PRINT 

869 PRINT"\SHE\ COMMAND = SHIELD GONTROL" 

87 PRINT" DEFINES THE NUMBER OF ENERGY UNITS TO BE ASSIGNED TO THE" 
888 PRINT" SHIELDS. ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY. NOTE 
” 

898 PRINT" THAT THE STATUS DISPLAY TOTAL ENERGY INCLUDES SHIELD ENER 
cy" 

988 PRINT 

91@ PRINT'\DAN\ COMMAND = DAMMAGE CONTROL REPORT" 

928 PRINT" GIVES THE STATE OF REPAIR OF ALL DEVICES- WHERE A NEGATI 
VE" 

930 PRINT" ‘STATE OF REPAIR' SHOWS THAT THE DEVICE 1S TEMPORARILY" 


948 PRINT DAMAGED." 

958 PRINT 

966 PRINT'\COMN COMMAND = LIBRARY-COMPUTER” 

97@ PRINT" THE LIBRARY-COMPUTER CONTAINS SIX OPTIONS:" 

989 PRINT OPTION @ = CUMULATIVE GALACTIC RECORD" 

996 PRINT" THIS OPTLON SHOVES COMPUTER MEIORY OF THE RESULTS OF A 
LL" 

1@@@ PRINT" PREVIOUS SHORT AND LONG RANGE SENSOR SCANS" 

1612 PRINT" OPTION | = STATUS REPORT" 

162@ PRINT” THIS OPTION SHOWS THE NUMBER OF KLINGONSs STARDATESs" 
1838 PRINT" AND STARBASES REMAINING IN THE GAME." 

1848 PRINT" OPTION 2@ = PHOTON TORPEDO DATA" 

1859 PRINT" WHICH GIVES DIRECTIONS AND DISTANCE FROM THE ENTERPRI 
SE’ 

1062 PRINT" TO ALL KLINGONS IN YOUR QUADRANT” 

1870 PRINT" OPTLON 3 = STAREASE NAV DATA" 

1068 PRINT" THIS OPTION GIVES DIRECTION AND DISTANCE TO ANY " 
1096 PRINT" STARBASE WITHIN YOUR QUADRANT" 

11@8 PRINT" OPTION 4 = DIRECTION/DI STANCE CALCULATOR” 

1i1@ PRINT" THES OPTION ALLOWS YOU TO ENTER COORDINATES FOR" 
1126 PRINT" DIRECTL ON/DISTANCE CALCULATIONS" 

113¢@ PRINT” OPTION S = CALACTIC /REGION NAME/ MAP 

114g PRINT” THIS OPTION PRINTS THE NAMES OF THE SIXTEEN MAJOR " 
1158 PRINT” GALACTIC REGIONS REFERRED TO IN THE GAME." 

1999 POKE 1229. 8:POKE L237. 1:NULL @ 

2696 PRINT: PRINT: PRINT 

261G PRINT "TURN CASSETTE PLAYER ON AND HIT ANY KEY EXCEPT RETURN” 
2826 IF INPC1})=13 THEN 2026 

2638 PRINT 

2048 PRINT “TURN CASSETTE PLAYEF OFF AND *" 

PARG PRINT “TYPE 'RUN’ WHEN COMPUTER PRINTS ‘okt 


Program Listing - The Game 
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REY 
REW 
REI 
REM 
REM 
REM 
REA 
REM 
REN 
REHM 
REM 
REM 
REM 
REM 
REI 
REM 
REM 
REM 
REM 
REM 
REY 
REI 
PRINT: PRINT: PRINTs PRINT: PRINT: PRINT: PRINT: PPINT: 
PRINT" 
PRINT" 
PRINT" 
PRINT? 
PRINT" 
PRINT" 
PRINT: PRINT: PRINT: PRINT: PRINT 
CLEAR 686 

Ze" 

DIM GCBs8) C69. B+ KC 3s 3) NC 32420845) 2 DEB? 

TRINTCRNDC 1) #29428) * 108: Tos Tt T9= AS+ INTC RND( 1) *1@) : DO=G: E=3LGS: ESSE 
P= 1G: PO=Pr S9= 208s S= 9: B9=H: KOs G2 KGa NOS=" 
DEF FNDCD)=SORCCKCL 2 1)-S1) t24CKCL, 2952) 12) 
DEF FSNCR)=1NTCRNDCR)#*7-984+1-31) 

REM INITIALIZE ENTERPPIZE'S POSITION 
QI=FNRC 1): O28 FRC 1): Sis FNRC1) : S2° FRCL) 
FORE=1709:C¢ 1s 1)#0: CCL» 2)52:NEXTI 

COB. LBW 1200 Rs PSH 1s CC As 1S~ br Cl ds Qe= 12 CC Ss 22-1200, Qa~ 1 
COls@)=1:0C a. a= 
FORI= 1708: D(1)=@:NEXTI 
ALS="NAVSRSLRSPHATONSHEDAHC OMXxx" 

REM SETUP WHAT EXHISTS IN GALAXY . + « 
REM K= 
FOML= 1703: FORU= 1T08:K359:2¢1.d) 23: RIS PNDC 1) 
LFR1> +98 THENK3= 
LFR1> «9 STHEWKG= 2: K9=K9+2:G0T 8B 
LFRi> -BOTHENK3= 1: K9eK9 +} 

BG=@:1 FRND(C 1) >.9 6THENB3= 1: B9=B9+1 


sek 
ae ok 
ae 
RR 
ARK 
abe 
eK 
2K 
RK 
seek 
aK 
ok 
atk 
aK 
se 
2K 
BK 
RR 
ak 
RR 


SUPER STARTREK 


= HAY 1621978 


~ REQUIRES 24K MENORY 
aka STAR TREK actor RA 

STMUULATION OF A HISSION OF THE STARSHIP ENTEPPRI SE, 
AS SEEN ON THE STAR TREK TV SHOW. 
ORIGIONAL PROGRAM BY MIKE MAYFIELD.» NODIFLED VERSION 
PUBLISHED IN DEC'S "11 BASIC GAMES", BY DAVE AHL. 
MODIFICATIONS TO THE LATTER (PLUS DEBUGGING) BY BOB 
LEEDOI - APMIL & DECEMBER 1974, 
WITH A LITTLE HELP FRO) HIS FREENDS . « « 
COMMENTS. EPITHETS» AND SUGGESTIONS SOLICITED ~~ 
SEHID TO: Ne Ce LEEDOM 

VESTINGHOUSE DEFENSE & ELECTRONICS SYSTEMS CNTR. 

BOX 746s HeS. 336 

BALTIMORE, MD 21283 


CONVERTED TO MICROSOFT 8 K BASIC 3/16/78 BY JOHN BOMDERS 
LINE NUNBERS FRO VERSION STREK7 OF 1/12/75 PRESERVED AS 
MUCH AS POSSIBLE WHILE USING MULTIPLE STATEMENTS PER LINE 
SOME LINES ARE LONGEN THAN 72 CHARACTERS; THIS WAS DONE 
BY USING "?" INSTEAD OF “PRINT WHES ENTERING LIWES 


:PRINT 
NOC-L7GE" 


THE USS ENTERPRISE ~-~- 


” 


is" 


s0CGs EELS Cl Te VIR 1S CCB, ID=LsCCBs D=H120C9, Q=1 


# KLINGONS Ba= # STARBASES S535 # STARS 


tKO=KI+32:GOTOIBS 


GCIs dc) =K3* 1964+B3* 10+ FNRC LD sNEXTUINEX TI: 1 FK9> T9 THEN T9=KO4FE 
IFB9< >STHEN} 22396 


TFGC QL 
B9= 1:6 
K7RKOs1 


02)< 26BTHENGC G1, Q2)=GCCls G2)+128:K9=KO+! 
Ole Q2)=GC Ol, 2) +18: OI= FNC 1): Qa FUNC 1) 
FBO<> 1 THEN S=""S":X@S="" ARE " 


PRINT'YOUR ORDERS ARE AS FOLLOWS:" 


PRINT" 
PRINT" 
PRINT" 


PRINT 


PRINT: PRINT'HIT ANY KEY EXCEPT RETURN 
TeRNDC1Ls1F INPC1J=13 THEN 


DESTROY THES K93 "KLINGON WARSHIPS WHICH HAVE IWVADED" 


THE GALAXY BEFORE THEY CAN ATTACK FEDENATI ON HEADQUARTERS” 
THERE'S X@ 


ON STARDATE"3TS+T93" THIS GIVES YOU'S TO;*DAYS~ 


“3 B93 "STARBASE'SXS3" IN THE GALAXY FOR RESUPPLYING YOUR SHI 


1369 


REN HERE ANY TIME NEW QUADRANT ENTERED 
Z4=013Z25= 08: K3= Gs B35 G: $3=8:G5= 9: Das. S*RNDC 1) 22601, Q2)=GC 01, 02) 
I FQl< 10RG1>8 ORGS< | ORG2>8 THEN 1629 


GOSUB 9636: PRINT: IF Ta<>T THEN 


149g 


PRINT"YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED" 


PRINT"L 


PRINT"NOW ENTERING “3G283" QUADRANT « « « 


“s3Gess"'.":G0TO 1588 


N THE GALACTIC QUADRANT. 


PRINT: MG=INTCGC Qh. Q2)*+G1) 2 BO=INTCGC OL, Q2)%+ 1) -1G#K3 
S3=GCQ)s G2) ~ 19G#K3~ 18#B3: 1 FKG= B THEN] 59¢@ 


PRINT'COMBAT AREA 


PRINT" 


CONDITION RED": 1 FS> 2G0THENIS9@ 
SHIELDS DANGEROUSLY LOW" 


FORE= 1TOSr KCl» Le OrKC 1s Q=B:NEXTI 


WHEN READY TO ACCEPT COMMAND" 


1688 
1666 
1676 
1686 
1726 
1786 
18 26 
1889 
1918 
1986 
1998 
2626 
2838 
2B4G 
2858 
2068 
208 
2149 
2160 
2166 
2198 
2268 
2218 
2226 
2238 
2240 
2256 
2266 
2296 
2388 
2318 
2336 
2356 
2368 
2368 
2398 
2429 
2436 
2470 
2490 
2508 
25108 
2538 
2553 
2569 
2576 
e258 
2590 
2612 
2665 
2786 
Q7T7e 
2798 
28 GS 
2813 
28 4G 
2666 
2916 
29 3G 
29 66 
3888 
38638 
366 
307 
3116 
3142 
317 
324g 
3326 
3358 
336¢ 
3378 
3438 
3456 
3478 
346 3 
3498 
3526 
3556 
3595 


3626 3 


3678 
37168 
3756 
3796 
38 96 
3818 
38 26 
38368 
38 40 
38 58 
38 6G 
3870 
3968 
3916 
3936 
39 43 
3986 
VIG 
ABCD 
AG3D 
43 46 
AGED 
aleg 
4186 
4216 
4236 
A25G 
A269 
4265 
ABTS 
4280 
AI3B 
4358 
4366 
4376 
44GB 
4416 
4456 


FORT = 1TO3:KC1+s 3S G:NEXTI : OS=Z5+ZS+ZS+Z S42 542 S+ZG9+L EFT SCZ Ss 17) 
REM POSITION ENTERPRISE IN QUADRANT» THEN PLACE "K3" KLINGONS» 
REM "B53" STARBASES» & "S3" STARS ELSEWHERE. 

ASs"oe> "SZ 12512228= 52: GOSUBB6 70:1 FK3< 1 THENIS 26 

FORI= 1 TOKS: GOSUBS S9Q:AS="4+K+"sSZ1SRI2Z22R2 

GOSUBS 674: KC Le I= R1IsKCLs Q=RerKC 1s 3) = S9¥*C G+ S+RNDC 122 :NEXTI 

I FBS< 1[THENI9 12 

GOSUBS 596: AS="> !<'':Z 1=R1: B4= Ri: Z 2 R2: BS= RO: GOSUBE 678 
FORI=1T0S3: GOSUBBS59G:AS=" * "2 Z1=Ri:Z2= RO: GOSUBBG7O:NEXTI 
GOSUB6438 

UFS+ E> 1GTHENI FE> 1 80RD(C7)=@ THEN20 68 

PRINT: PRINT'#* FATAL ERROR 4 YOU'VE JUST STRANDED YOUR SHIP IN " 
PRINT" SPACE’: PRINT"Y OU HAVE INSUFFICIENT MANEUVERING ENERGY» "3 
PRINT" AND SHIELD CONTROL”: PRINT'IS PRESENTLY INCAPABLE OF GROSS"S 
PRINT'-CLRCULTING TO ENGINE ROOM! !":GO0TO6228 

INPUT" COMMANDS AS 

FORI= 1T09:1 FLEFTSC AS, 3) <>MI DSCAISs 3*1- 2. 3) THENG1 66 

ONIGOTOZ3IG0B» 1986+ AGBB, 42602 47082 5530+ 569 Gs 7290» 6270 
NEXTI:PRINT“ENTER ONE OF THE FOLLOWING:" 


& 


PRINT’ NAV ¢7TO SET COURSE)" 

PRINT’ SRS (FOR SHORT RANGE SENSOR SCAN)" 

PRINT’ LRS (FOR LONG RANGE SENSOR SCAN)" 

PRINT“ PHA CTO FIRE PHASERS)* 

PRINT’ TOR (TO FIRE PHOTON TORPEDOES)” 

PRINT" SHE (TO RAISE OR LOWER SHIELDS)" 

PRINT" DAM CFOR DAMAGE CONTROL REPORTS)" 

PRINT" COM (TO CALL ON LIBRARY-COMPUTER)" 

PRINT" XXX CTO RESIGN YOUR COMMAND) ": PRINT: GOTO1999@ 


REM COURSE CONTROL BEGINS HERE 
INPUT"COURSE €@-92'"SC1:1FC1=9 THENCI=1 
IFC1>= TANDC1<9 THEN235 
PRINT" LT-+ SULU REPORTS. 
NSe"G":L FDC 1) < OTHENK g= "Ge 2" 
PRINT’ WARP FACTOR (2~ $3") "3 :INPUTWI: 1 FDC 1) <@ANDWI>~«2THEN2478 
IFUL> ANDY 1<=8 THEN2 499 

IFWis @THENI996 

PRINT" CHIEF ENGINEER SCOTT REPORTS 
PRINT" WARP "3 V1S"E'":GOTOI99G 
PRINT'YARP ENGINES ARE DAMAGED. 
N= INTCW148 +. 5) t1 FE-N>=@ THEN 259 @ 
PRINTY ENGINEERING REPORTS ‘INSUFFICIENT ENERGY AVAILABLE” 
PRINT" FOR MANEUVERING AT VARPYSuERhiT 
I FS<N~ EORD( 7)< @THENI99@ 

PRINT’DEFLECTOR CONTROL ROOM ACKNOWLEGES"?S3 "UNITS OF ENERGY” 
PRINT" PRESENTLY DEPLOYED TO SHIELDS." 
GOTOI99G 

REM KLINGONS MOVE/FIRE ON MOVING STARSHIP « + +» 

FOPI= LTOK3: 1 FKC1s 9) =6THEN2 708 

Ags" "2Z=KCls 1) rZ2eKC1»s 2): GOSUBE 679: GOSURBB 596 

Kis DSBZiskCls 2522: AGH "++": GOSUBE 673 

WEX TI: GOSUB6@QG: Di=@: Dé=WitI FWio= 1 THEND6= 1 
FORI=1TOG:I FDCL) >=S8THEN2889 
DCLI=DCLI+DG6s1 FOC 1) > LANDDC ID < @THEND( I) =~. 1:GOTO2BEB 
IFDC1)<@THEN26&S 

TFDI<> PE THENDi= 1: PRINT’ DAMAGE CONTROL REPORT: 
PRINTTABC8)3:Ri=i:GOSUBG79@:PRINTG25;" REPAIR COMPLETED." 
NEXTL: 1 FRNDC 1) >«2THENIS79 

RIF FNRC1) 2: FRND( 1) 2. 6THENISSB 

DCN DORI -CANDC 1)*5+1): PRINT DAHAGE CONTROL REPORT: 
GOSUBS 790: PRINTG2S3"" DAMAGED": FRINT:GOTO3876 

DORI) =DCR1II+RNDC 1341: PRINT"DANAGE CONTROL REPORT: 
GOSUBB79@: PRINTG2S3" STATE OF REPAIR IMPROVED": PRINT 
REM BEGIN MOVING STARSHIP 

ASs" “"SZISINTCSI) :Z2=INTCS2) :GOSUL8 678 

MESCC Che LIC CC Cit hs LIK CCCHs 1D #CCIMINTCOL 2 txX= S13 Y=52 
HQaCCCls 2) +¢CCCl+hs 2)-CCCL, 2) #CCI~INTCC1)) 2s Qa= 1: C5=2 
FORI=1TON: Si=SitXl: Sa=S2+k OQ: 1 FSi< LORS 1>=9 ORS2< 1 ORS2>=9 THENISSG 
SGSINTC SL) *A4+INTCS2)* 3-26: 1 PMI DS( GS, 58.2.5" "THENI3S6G 
SISINTCS1-X1): SQ8INTCS2-X2):PRINT'VARP ENGINES SHUT DOWN AT "3 
PRINT"SECTOR'? Sis". '3 S23 "DUE TO BAD NAVAGATI ON":GOT033970 

NECTI s SIZ INTCS1):S2=INTCS2) 

ASa"<e's ZISINTCS1) 2 Ze2INTCS2) :GOSUBB67G:GOSUB39 1G: TB=1 

TFW1s LTHENTS=. Pe INTC 1g4 i) 

Te T+IGs:i FT>TO+T9 THEN6226 

REM SEE LF DOCKEDs THEN GET COMMAND 


"INCORRECT COURSE DATAs SIR!I'":GOTO199B 


Wag 
"5K 


‘THE ENGINES WON'T TAKES 


MAXIUM SPEED = WARP @+2":GO0TO619990 


my 
3 


wy 
3 


me 
3 


GOTOI98E 

REM EXCEEDED QUADRANT LIMITS 

HEORQL+KANEX ES Y=B* O2tY AN#X 2: GIS INTCX/8) : G22 LN TCY /B) 2 SIEINTCX~ Q1¥B) 
SQeINTCY~ O28) si FSIS GTHENGIHAQ1~1: 5128 

OTHENQ2= G2~1: S228 


rSie] 


LFOQ2>8 THENX 
1 FA S= STHENGS 66 

PRINT'LT- UHURA REPORTS MESSAGE FROM STARFLEET COMMAND: " 

PRINT’ "PERMISSION TO ATTEMPT CROSSING OF GALACTIC PERIMETER" 
PRINT’ LS HEREBY *DENIEDr. SHUT DOWN YOUR ENGINES.'" 
PRINT"CHLEF ENGINEER SCOTT REPORTS ‘WARP ENGINES SHUT DOWN" 
PRINT" AT SECTORUS Sis". "3523"GOF QUADRANT™3 O13". "3 02a5".'" 
IFT>TQ+ 19 THEN6226 

DFG+01+02"8%*04+05THEN3370 

T= T+ 1:GOSUB39 lo: GOTOI323 

REM MANEUVER ENERGY S/R #« 

E= E-N~ 1631 FEo= @THENRETURN 

PRINT" SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE THE MANEUVER." 
S=S+E: Ee @i 1 FS<=GTHENS*@ 

RETURN 

REM LONG RANGE SENSOR SCAN CODE 

LFDCQ)<GTHENPRINT'LONG RANGE SENSORS ARE INOPERABLE':GOTO1996@ 
PRINT"LONG RANGE SCAN FOR QUADRANT’ G13". "3 a2 

"SPRINTOIS 

FORI=Q1-1TOQI+I:NC loe-1:NC 2)5- 2:NC 3) =~ 3: FORU=O2~1T0Ceat1 

I Fl > GAN DI<9ANDJ>SANDJ<9 THENN( J-C2tQd=GClsd 3: Z2C1, J =GllsJ) 

NEX TJ: FOPL=1TO3: PRINT: “3 sbFNCLI<GTHENPRINT'#ee "3 :GOTO4236 
PRINTRIGH TSC STRSCNCLO+1BGG) 2305" 5 

NEXTL: PRINT: ":PRINTOLS:NEXTI:GOTO1999 

REM PHASER CONTROL CODE BEGINS HERE 

I FDC 4)<@THENPRINT'PHASERS IENOPERATI VE": GOTO1996 

TFK3>8 THEN 4336 

PRINT'SCI ENCE OFFICER "SENSORS SHOW NG ENEMY SHIPS" 
PRINT" IN THIS QUADRANT'':GOTO1999¢ 
IFDCS)<@THENPRINT'COMPUTER FAILURE HANPERS ACCURACY" 
PRINT"PHASERS LOCKED ON TARGETS "3 

PRINT" ENERGY AVAILABLE ="3 Es "UNITS" 

INPUT'NUMBER OF UNITS TO FIRE'SX:] FX<= G@THENIO9G 

I FE-K< @THEN4363 

ES E-X:1 FDC 7)< OTHENK=X# RN DC 1) 

HISINTCX/K3) ¢ FORI=1TO3s 1 FRCL. 3)<5 O@THENA679 


SPOCK REPORTS 


160 


He CN TCCHE/FNDCG) )*CRNDC1)+2)) 21 FH>. 1S*KCLs 9) THEN4S3@ 
PRINT"SENSORS SHOW NO DAMAGE TO ENEMY AT "3KCTs 103 "te "SKCLs 2) :GOTO46 


K€ls Q=KCi. 3)-HiPRINTHS “UNIT HIT ON KLINGON AT SECGTOR™SKCLs 125%. "S 
PRINTK(C Ls 2):1 FKCLls 3)<=@THENPRINT"#k* KLINGON DESTROYED #**"':G OTO458 


PRINT" (SENSORS SHOW'S KCI. 303 "UNIETS REMAINING) ":GOTO467G 
K32K3- LrK9sK9-1sZ1=KCLs 1) 2 Ze=KCls 22 Age" *";G OSUBB 679 

KC1s 2) 2G: GC Ol, Q2QI=GC G1, G2) - 188: 2001, Q2I=GC Ol» Q2) 21 FK9S=GTHENG37B 
NEXT1:GOSUBE6G38:GOTO1999 

REM PHOTON TORPEDO CODE BEGINS HERE 

IFPS=@THENPRINT"ALL PHOTON TORPEDOES EXPENDED":GOTO 199¢ 
IFDC5)<STHENPRINT"PHOTON TUBES ARE NOT OPERATI ONAL":GOTOI99@ 
INPUT"PHOTON TORPEDO COURSE (€1-9)2"3C1ir:1FC1=9 THENCI=1 

IFC1>= 1ANDCI<9 THEN 4S 53 
PRINT'ENSIGN CHEXKOV REPORTS» 
GOTOI9S9S 

Kip COOL. 1 +C COCA Fis PI -CCCls IDRC CE-INTCC1) 23 BE En 2: P= PH] 
XeeCCCls 2) +(CCCitls 2)~-CCCls 2) eC CI~INTCC1) 2X2 S12Y=S2 
PRINT" TORPEDO TRACK:" 

REXtK LIYSY 4K O1X GS INTCX+. 5) YGSINTCY +. 5) 
IFX3< LORX3>8 ORY 3< 1 ORY 3>8 THENS 49 @ 
PRINT" "3XG3 "S"GY3s age" 
IFZ3< >OTHEN 49 26 

AS="+K#"3Z aX: Z2=¥ : GOSUBBE 3G: 1 FZ 3+ STHENS216 

PRINT"#+k* KLINGON DESTROYED *#*#":K3=K3~ 1: K9=2K9~ 1:1 FK9<= OTH ENG37G 
FORT=1TO3:1 FXO=KCLs 1 ANDY 3=KC Fs 2) THEN5S196 

NEXNTI:1=3 

KCL» 39-8: GO0TO5438 

ASS" x "32 12%: 22=71G OSUBBE 30:1 FZ 956 THENS 288 

PRINT"STAR ATEN "s"FY33 "ABSORBED TORPEDO ENERGY» '': GOSUB6G26:GO0TO! 


"INCORRECT COURSE DATA» SIRI" 


"rZ18X:Z BaY: GOSUBBS 38 


AS#M> Pes Z 15X22 B2Y 2G OSUBEB IB: 1 FZ 
PRINT'#** STARBASZ DESTROYED ** 
I FB9>G ORKO > T~ TG~ T9 THENS AGG 
PRINT"THAT DOES ITs CAPTAIN!! YOU ANE HEREBY RELIEVED OF COMMAND" 
PRINTVAND SENTENCED TO 99 STARDATES AT HARD LABOR ON CYGNUS 1211" 
GOTO 6276 

PRINT’ STARFLEET COMMAND REVI EVING YOUR RECORD TO CONSIDER" 
PRINT'COURT HANTIAL I": D&=@ 

ZleXiZeaeYr Ase" "3G OSULGB 675 

GCOls 02) =K3* 1BH+ B34 1O+S39:Z26012 02)=GC 01» 02) :GOSUB6ES9: GOTO199R 
PRINT" TORPEDO it] SSED": GOSUBG62G0:GOTO1I99G 

REM SHIELD CONTROL 

IF D( 79<@THENPRINT’ SHIELD CONTROL INOPERABLE": GOTOI998 

PRINTV ENERGY AVAILABLE ="J E+S;:1NPUT"NUMBER OF UNITS TO SHI ELDS'3x 
LFX<@ORS*X THENPRINT'< SHLELDS UNCHANGED> ":GOTO1999 
IFX<= EtS THENS 638 
PRINT'SHI ELD CONTROL, REPORTS 


STHENAT6S 
:B3= 83-13: B9=B9~-! 


‘THIS 1S NOT THE FEDERATION TREASURY-+ 


PRINT"< SHIELDS UNCHANGED>":GOTQ1996 


Ee Et S-Ns S]XNiPRINT' DEFLECTOR CONTROL POO REPORT:" 
PRINT" 'SHIELDS NOU ATYSINTCS3"UNLTS PER YOUR COMIIAND.'":GOTOI995 
REM DAMAGE CONTROL 


IFDC 6) >= STHENS9 13 

PRINT" DAMAGE CONTROL REPORT NOT AVAILALLE™: 1 FDS=GTHENIO9& 
DQ=G: FORI=1TOB: 1 FDCLI<STHENDI=D3+.1 

NEXTI 21 FD3=6THENI99G 

PRINT: D3= D3+ D431 FD3>= | THEND3G= 9 

PRINT" TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP" 
PRINT“ ESTIMATED THIE TO REPAIRS. 21s INTC1GG*D3)3 "STARDATES" 
INPUT'HILL YOU AUTHORIZE THE REPAIR ORDER CYAD AS 

TFAS< >"Y"THEN 199¢ 

FORI= 1TOS: 1 FDCIO<OTHENDC Lae 


2 WEXTIs T=T+D3+e1 


PRINT: PRINT’ DEVICE STATE OF REPAIR": FORMI= 1708 
GOSUBB 79E: PRINTG2S3LEFTS(Z Ss S5~-LEN( GOS) SINTCDCRII#IDG)*-Gt 
NEXTRIs PRINT: 1 FDO< > THENS720 

GOTO 1998 

REM KLINGONS SHOOTING 

I FK3<= OTH ENRETURN 


> TFDG<>QTHENPRINT'STARBASE SHIELDS PROTECT THE ENTERPRISE": RETUNN 


FOPRI= 1 TOS: 1 FKCLs 3) <= GTHEN6238 

HEINTCCKCEs 3) /FNDC 1) * C24 PRN DC 120): Ss S-HikCls 3=KC1s 3) /CO+RNDC ES)? 
PRINTHS "UNIT HIT ON ENTERPRISE FROM SECTOR™FKC1s 13% 3S KCLs 2) 
IFS<= THEN 6248 

PRINT" <SHIELDS DOWN TO"S Ss 
TFRND( 1) > GOH /S<= -S2THENG295 
RIS FNRC1) 2 DORI = DCRL) -H/S- 6 S*PNDC 1) :GOSUESB 79 

PRINT’ DAMAGE CONTMOL REPORTS ‘'"3G253'' DAMAGED BY THE HIT" 
NEX TE: RETURN 

REM END OF GAHE 

PRINT'LT 15 STARDATE"3 T:GOTO 6276 

PRINT: PRINT'THE ENTERPRISE HAS BEEN DESTROYED. 
PRINT'YILL GE CONQUENED':GOTO 6223 

PRINT’ THERE WERE" KO3 "KLINGON BATTLE GRUISERS LEFT at" 

PRINT" THE END OF YOUR MISSION." 

PRINT: PRINT: I FE9= 0TH EN6365 

PRINT" THE FEDERATION IS IN NEED OF A NEV STARSHIP COMMANDER" 
PRINT'FOR A SIMILAN MISSION ~~ IF THERE 1S A VOLUNTEER" 
INPUT"LET HIM STEP FORYVARD AND ENTER ‘AYE'"3 ASt1 FAS= "AYE" THENIG 
END 

PRINT"CONGRULATI ON» CAPTAIN! THE LAST KLINGON BATTLE CRUISER" 
PRINT“MENACING THE FEDENATION HAS BEEN DESTROYED. ": PRINT 
PRINT'YOUR EFFICLENCY RATING 15"3 19G@*(K7/¢ I~ 192) 1 2:GOT06296 
REM SHORT RANGE SENSOR SCAN & STARTUP SUBROUTINE 
FORI=Si~!TOS1+1: FORU=S2-1TOS2t1 

IFINTCL+.5)<1GOR1WTCL +. 5) >8 ORINTCU+- 5) < LORIN TC J+. 5) >3 THENG54G 
ASH">te"3Z pal: Z283:GOSULGG IG: 1 Fz 3+ 1 THENGSB8S 

NEXTUSNECTI : D@=G:GOTO66SS 

DS= 1: CS="DOCKED": E= EG: P= Pg 

PRINT'SHIELDS DROPPED FOP DOCKING PURPOSES": S=6:GOTO672B 
IM(3>@THENCS="*RED*':GOTO6720 

CS="GREEN': i FE< EG*« 1 THENCS= "YELLOW" 

I FDC 2) >= G@THEN6776 

PRINT: PRINT #** SHOMT RANGE SENSORS ARE OUT #4% ENT: RETURN 
Oss" “"sPRINTOL ORT = 1 T08 
FORUs Clim Le 2A+ 1 TOCI-4) * 24+ 22STEP3EPRINT’ "SHIDSCOS¢ds 303 :NEX To 
ONI GOTO6E SG+ 69 9G 6968+ 7220. 70702 7128+ 7189s 7248 


“UNL TS> "3 I FH< 29 TH ENG 250 


THE FEDERATION "3 


PRINT" STARDATE “SINTC TRIG) *+12GOT07266 
PRINT" CONDI TI OW "3CS:G0TO7T265 

PRINT" QUADRANT "3 Q2:G0T07268 
PRINT" SECTOR "3 $2: GOTO7 268 
PRINT" PHOTON TORPEDOES "SINTCP):GOTO7269 
PRINT” TOTAL ENERGY "SINTCE+S) : GOTO? 26a 
PRINT" SHIELDS "SINTCS):GOTO7 268 
PRINT" KLINGONS REMAINING "SZ INTCK9) 


NEXT1: PRINTOIS: RETURN 
REM LIBRARY COMPUTER CODE 


7296 
7328 
7350 
7368 
7376 
7372 
7374 
7376 
7378 
7388 
7390 
7490 
7538 
7549 
7542 
7543 
75444 
7546 
7550 
7560 
7578 
7630 
7780 
7728 
17 a8 
78 BG 
78 58 
7898 
7906 
79:48 
79 68 
" 


7978 
7988 


7998 
8218 


IFD(8)<@THENPRINT"COMPUTER DISABLED": GOTO1996 
INPUTYCOMPUTER ACTIVE AND AWALTING COMMAND"s Ar l FACOTHEN199@ 
PRIN T:H8= 1: ONA+1G0T0754B4 7900. 80970s8 590.8158, 7498 

PRINT" FUNCTIONS AVAILABLE FROM LI BRARY<COMPUTER:" 


PRINT" @® = CUMULATIVE GALACTIC RECORD" 

PRINT" 1 = STATUS REPORT" 

PRINT" @ = PHOTON TORPEDO DATA" 

PRINT" 3 = STARBASE NAV DATA" ; 

PRINT" A = DIRECTI ON/DISTANCE CALCULATOR” 

PRINT" S = GALAXY "REGION NAME’ MAP": PRINT!:GOT0732¢ 


REM SETUP TO CHANGE CUM GAL RECORD TO GALAXY MAP 

H8=6:G5=1: PRINT" THE GALAXY": GOTO7550 
REM CUM GALACTIC RECORD 

INPUT"DO YOU WANT A HARDCOPY? 1S THE TTY ON (Y/N) "3AS 

I FAS='Y" THENPOKE! 2295 2: POKE! 237+ 3:NULL1 

PRINT: PRINT" "3 

PRINT'COMPUTER RECORD. OF GALAXY FOR QUADRANT"; Q13","} a2 
PRINT 

PRINT 1 2 3 4 $ 6 7 g" 
01s=" 
PRINTO)S: FORI=1708: PRINTI 3 t 1 FH8= @THENT 746 

FORJ= 1T08: PRINT" “StEFZC1sJ)= OTHENPRINT *#*"3 sGOTO7726 
PRINTRIGH TSC STRSCZCLsJ)+1098).393 

NEXT: GOTO78 5G 

Za=12ZS= 12 GOSUBIG30:JGsINTC15~. SkKLEN(G25)) 3 PRINTTABC UB) 3G25! 
Z5=5:GOSUB 9930: JO=INTC 39~. 5#LENC G25) ) : PRINTTABC JO) 3G253 

PRINT: PRINTOLS:NEXTI : PRINT? POKEL 229, 9: POKE] 237+ 1:NULL@:GOTO1996 
REM STATUS REPORT 

PRINT " STATUS REPORT: “:XS=""3 1 FK9>1 THENXS=""S" 
PRINT'KLINGON'SXS3" LEFT: "39 


PRINT"MISSION MUST BE COMPLETED IN‘ © 1¥INTCC TO+T9-T)*10)3 "STARDATES 


X$=2"S"2 1 FBO< OTHENX $=": I FB9< 1 THENSB1D 


PRINT" THE FEDERATION 1S MAINTAINING'3 B93 "STARBASE"3X$3" IN THE GALA 


GOTOS69a 

PRINT'YOUR STUPIDITY HAS LEFT YOU ON YOUR ON IN" 

PRINT" THE GALAXY ~~ YOU HAVE NO STARBASES LEFT!":GOTO569& 
REI TORPEDO, BASE NAVs D/D CALCULATOR 

I FK3¢= @THEN4278 

XS= "3 LF 1 THENK S="S" 

PRINT" FROM ENTERPRISE TO KLINGON BATTLE CRUSER'?XS 

H8=@: FORTS 1TO3¢1 FRCL» 3) <= 6 THENS 488 
WARK Ls 1) Xe KCLs 2) 

Ol=Sls:A=S2:GOTOR 228 

PRINT" DI RECTI ON/DISTANCE CALCULATOR: * 
PRINT'YOU ARE AT QUADRANT "3013", "3 623" 
PRINT'PLEASE ENTER":INPUT" INITIAL COORDINATES (XsY) "3 CISA 
INPUT" FINAL COORDINATES (XeY)"sW1lsX 

XBX-ArASCI-Wls l FX< OTHENG 358 

I Fac OTHENG 412 

I FX>@TH ENG 28 @ 

I FA=@THENC l= 5:GO0T08 290 

Ci=1 

I FABSCA)<=ABSCX) THENG 336 

PRINT" DIRECTION ="3C1+(€(CABS(CA)“ABS(X) ) #ABSCA)) /ABSCA)) 1GOTO8 46B 
PINT" DIRECTION ="3C1+CABSCA) /ABSCX)) :GOTO8 460 

I FA>@ THENC 1=3:G0T08 429 

LFX<>@THENC 1= 5:6 0T08 290 


SECTOR "3Si3"s "3 S2 


C157 


1 FABS¢ A) >=ABS(X) THENG 450 
PRINT“ DIRECTION ="3C1+((C CABSCX) ~ABSCA) ) +ABS(X) ) /ABSCX) ) G0T08 468 
PRINT'DI RECTION ="3C1+CABS(X) /ABSCA)? 

PRINT" DISTANCE ="3 SQRCX12+A1 2) 31 FHS= 1 THENIOOR 

NEXTI:GOTO199B 

LFB3<>GTHENPRINT? FROM ENTERPRISE TO STARBASE:": W1=BA:X=B5:G0T08 12 
PFINT"MRs SPOCK NEPOPTS, ‘SENSORS SHOW NO STARBASES IN THIS" 
PRINT" QUADRANT. '":GOTO1998 

REY FIND EMPTY PLACE IN QUADRANT (FOR THINGS) 

RIS FNRC1):R2=FNRC1)sAS=" "2Z1=R13Z2= R2:GOSUBBB IG: 1 FZ3=OTHENB 599 
RETURN 

REM INSERT IN STRING ARRAY FOR QUADRANT 
SB=INTCZQ~.5)*9+INTCZ1- 45) #24+1 

IF LENCAS)<>3THEN PRINTVERROR": STOP 

I FS8= 1 THENQ5=A5+RIGHTS( 5s 189): RETURN 

TFS8= 19BTHENQS*LEFTS( QS, 189) +ASt RETURN 

OS=LEF TSC Os SB- 1) *AS+RIGHTSC OSs 199-S8): RETURN 

REM PRINTS DEVICE NAME 

ONPG OT08 79 24 8 79 44879 608 71982 88 00s 8802, 884s 8806 

G2S="VARP ENGINES": RETURN 

G2S="SHORT RANGE SENSORS": RETURN 

G2$="LONG RANGE SENSORS": RETURN 

G25=""PHASER CONTROL": RETURN 

G2S="PHOTON TUBES": RETURN 

G25="DAMAGE CONTROL": RETURN 

G2$="SHIELD CONTROL": RETURN 

G25="LI BRARY -COMPUTER": RETURN 

REM STRING COMPARISON IN QUADRANT ARRAY 

ZASINTCZ 1405) sZOsINTC 22465) 2 SBa(Z B= 1) eBECZ = Le Bat Ls 79RD 

1 FMI D&C QS) SB. 3)<>ASTHENRETURN 

23s ft RETURN 

REM QUADRANT NAME IN G2S FROM Z4sZ5 (#Q1sQ2) 

REM CALL WITH GS=! TO GET REGION NAME ONLY 

1 FZ S<= ATHENONZ 4G 07 09 240 9850s 9060-96762 90BG+9 0992910009118 

GoTO9 12g 
G2S=""ANTARES": GOTO9 210 

"RI GEL": GOTO9 218 
*PROCY ON": GOTO9 210 
"VEGA": GOTO921¢ 

‘CAN OPUS": GOTO9 210 
G2S="AL TAI R": GOTO9 218 
G2S="SAGI TTARI US": GOT09 219 
G2S="POLL UX": GOTO9 210 

ONZ 4G OT09 130.9 148.915891698 
G2s="SI RIUS": GOTO9 2108 
G2S="DENEB": GOTO9 216 
"CAPELLA": GOTO 216 
*BETEL GEUSE": GOTO9 210 
"AL DEBARAN"': GOT09 218 
G2S="REGUL US": GOTO9 210 
G2S=2"ARCTURUS": GOTO) 210 
Ges="SPICa" 

1 FGS5é > 1 THENONZ SG0T09 230.9 240.9250. 9 260.9 230s 9 2a8s9 25009 268 
RETURN 

G2s=G25+" I": RETURN 

G2S=G2S+" LI": RETURN 

G2S=G2S+" IIL": RETURN 

G2S=G2S+" LV": RETURN 


196.9 208 
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Sample Run - Instructions 


SOK OR GR IOk i a ak ak aR aOR iE 


* 
* * 
* * * SUPER STAR TREK * * * 
* * 
* * 
x * 


AERO ROC OR I Kok ok Ka tok 


DO YOU NEED INSTRUCTIONS (Y/N)D? ¥ 


TURN THE TTY ON-LINE AND HIT ANY KEY EXCEPT RETURN 
INSTRUCTIONS FOR 'SUPER STAR TREK’ 


1. WHEN YOU SEE \COMMAND ?\ PRINTEDs ENTER ONE OF THE LEGAL 
COUMANDS (NAVs SRS, LNSs PHAs TORs SHES DAN» COM» OR XXX) 

@. IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND, YOU'LL GET A SH ORT 
LIST OF THE LEGAL COMMANDS PRINTED OUT. 

3+ SOME COMMANDS REQUIRE YOU TO ENTER DATA (FOR EXAMPLE, 
"NAV' COMMAND COMES BACK WITH 'GOURSE (1-9) ?'.) 
TYPE IN ILLEGAL DATA (LIKE NEGATIVE NUNBERS).» 
WILL BE ABORTED 


THE 
IF You 
THAT COMMAND 


THE GALAXY IS DIVIDED INTO AN 8 X 8 QUADRANT Gri Db 
AND EACH QUADRANT 1S FURTHER DIVIDED INTO AN 8 X 8 SECTOR GPID- 


YOU WILL BE ASSIGNED A STARTING POINT SOMEWHERE IN THE 
GALAXY TO BEGIN A TOUR OF DUTY AS COMMANDER OF THE STARSHIP 
NENTERPRISE\3 YOUR MISSION: TO SEEK AND DESTROY THE FLEET OF 
KLINGON WARWHIPS WHICH ARE MENACING THE UNITED FEDERATION OF 
PLANETS-+ 


YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS CAPTAIN 
OF THE STARSHIP ENTERPRISE: 


NNAV\ COMMAND = WARP ENGINE CONTROL -- 


COURSE IS IN A CIRCULAR NUMERICAL 4 3 2 
VECTOR ARRANGEMENT AS SHOWN ee. 
INTEGER AND REAL VALUES MAY BE ane 
USED. (THUS COURSE 1-5 1S HALF~ So osomken- | 
WAY BETWEEN 1 AND 2 woe 
VALUES MAY APPROACH 9-9, WHICH 6 7 8 
LTSELF £S EQUIVALENT TO 1.8 

COURSE 


ONE WARP FACTOR IS THE SIZE OF 

ONE GUADTANT. THEREFORE TO GET 
FROM QUADRANT 645 TO 5.5» YOU WOULD 
USE COURSE 3 WARP FACTOR t- 


NSRS\ COMMAND = SHORT RANGE SENSOR SCAN 
SHOWS YOU A SCAN OF YOU PRESENT QUADRANT. 


SYMBOLOGY ON YOUR SENSOR SCREEN 15 AS FOLLOWS: 


FEDERATION STARBASE (CREFUEL/REPAIP/RE-ARM HERE!) 
STAR 


<*> = YOUR STARSHIP’S POSITION 
+K+ = KLINGON BATTLE CRUISER 
ples 


* 


A CONDENSED ‘STATUS REPORT' WILL ALSO BE PRESENTED. 

NLRS\ COMNHAND = LONG RANGE SENSOR SCAN 
SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE 
OF THE ENTERPRISE (WHICH IS IN THE MIDDLE OF THE SCaAiv) 
THE SGAN IS CODED IN THE FORM \#@@é\. YHERE TH UNITS DIGIT 
iS THE NUMBER OF STARS» THE TENS DIGIT IS THE NUMBER OF 
STARBASESs AND THE HUNDIESDS DIGIT IS THE NUMBER OF 
KLINGONS. 
EXAMPLE ~ 287 = 2 KLINGONSs NO STARBASESs & 7 STARS. 

\PHAN COMMAND = PHASEP CONTROL. 
ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRULSERS BY 
ZAPPING THEM WITH SUITABLY LARGE UNITS OF ENERGY TO 
DEPLETE THEIR SHIELD POWER. (REIBER. KLINGONS HAVE 
PHASENS TOO!) 


\TOR\ CONMAND = PHOTON TORPEDO CONTROL . 
TORPEDO COURSE 1S THE SAME AS USED IN WARP ENGINE CONTROL 
IF YOU HIT THE KLINGON VESSEL» HE 1S DESTROYED AND 
CANNOT FIRE BACK AT YOU. IF YOU MISS» YOU ARE SUBJECT TO 
HIS PHASER FIRE. IN EITHER CASEs YOU ARE ALSO SUBJECT TO 
THE PHASER FIRE OF ALL OTHER KLINGONS IN THE QUADRANT. 


THE LEBRARY~COMPUTER (\COM\ COMMAND) HAS AN OPTION TO 
COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2) 


\SHEN COMMAND = SHIELD CONTROL 
DEFINES THE NUMBER OF ENERGY UNITS TO BE ASSIGNED TO THE 
SHIELDS. ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY. NOTE 
THAT THE STATUS DISPLAY TOTAL ENERGY INCLUDES SHIELD ENERGY 


NDAM\ COMMAND = DANHAGE CONTROL REPORT 
GIVES THE STATE OF REPAIR OF ALL DEVICES. 
"STATE OF REPAIR’ 
DAMAGED. 


WHERE A NEGATIVE 
SHOWS THAT THE DEVICE 1S TEIPORARILY 


\COMN COMMAND = LI BRARY-COMPUTER 

THE LIBRARY-COMPUTER CONTAINS SIX OPTIONS: 

OPTION @ = CUMULATIVE GALACTIC RECORD 
THIS OPTION SHOWES COMPUTER MEMORY OF THE RESULTS OF ALL 
PREVIOUS SHORT AND LONG RANGE SENSOR SCANS 

OPTION | = STATUS REPORT 
THIS OPTION SHOWS THE NUMBER OF KLINGONS, 
AND STARBASES REMAINING IN THE GAME. 

OPTION 2 = PHOTON TORPEDO DATA 
WHICH GIVES DIRECTIONS AND DISTANCE FROM THE ENTERPRISE 
TO ALL KLINGONS IN YOUR QUADRANT 

OPTION 3 = STARBASE NAV DATA 
THIS OPTION GIVES DIRECTION AND DISTANCE TO ANY 
STARBASE WITHIN YOUR QUADRANT 

OPTION 4 = DIRECTION/DISTANCE CALCULATOR 
THIS OPTION ALLOWS YOU TO ENTER COORDINATES FOR 
DIRECTION/DISTANCE CALCULATIONS 

OPTION S = CALACTIC /REGION NAME/ HAP 
THIS OPTION PRINTS THE NAMES OF THE SIXTEEN MAJOR 
GALACTIC REGIONS PREFERRED TO IN THE GAME. 


STARDATES.s 


Sample Run - Game 


THE USS ENTERPRISE --~ NCC~17G1 


YOUR ORDERS ARE AS FOLLOWS: 
DESTROY THE & KLINGON WARSHIPS WHICH HAVE INVADED 
THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS 
ON STARDATE 3625 THES GIVES YOU 25 DAYS» THERE ARE 
3 STARBASES IN THE GALAXY FOR RESUPPLYING YOUR SHIP 


HIT ANY KEY EXCEPT RETURN WHEN READY TO ACCEPT COMMAND 


YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED 
IN THE GALACTIC QUADRANT» 'BETELGEUSE I’. 


a STARDATE 3008 
CONDI TI ON GREEN 
* QUADRANT 4 S&S 
SECTOR 62 2 
PHOTON TORPEDOES 16 
<> * TOTAL ENENGY 386 
SHIELDS a 


KLINGONS REMAINING 8 


COMMAND? LRS 
LONG RANGE SCAN FOR QUADRANT 4 2 5 


COMMAND? NAV++eSHE 
ENERGY AVAILABLE = 3889 NUMBER OF UNITS TO SHIELDS? 2008 
DEFLECTON CONTROL ROO’ REPORT: 
‘SHIELDS NOW AT 26089 UNITS PER YOUM COMMAND.' 
COMMAND? NAY 
COURSE €G-9)? 1+16667 
UARP FACTOR (6-8)? 1 


NOW ENTERING BETELGEUSE II QUADRANT » » - 


COMBAT AREA CONDITION RED 


a * STARDATE 3861 
* CONDI TI ON REDE 
aa * QUADRANT 4. 6 
<> Bg SECTOR 4or 2 
+i PHOTON TORPEDOES 16 
ES TOTAL ENERGY 2982 
SHIELDS 2086 
# KLINGONS FPEMAINING & 
COMMAND? COl 
COHPUTER ACTIVE AND AVALTING COMMAND? 2 
FROM ENTERPRISE TO KLINGON BATTLE CRUSER 
DIRECTION = &-75S 
DISTANCE = 4+12311 
COMMAND? TOR 
PHOTON TORPEDO COURSE €1-9)? 8.75 
TORPEDO TRACK: 
4.3 
5. 4 
S.2 § 
S + 6 
* KLINGON DESTROYED ¥ 
COMMAND? LES 
LOUG RANGE SCAN FOR QUADRANT 4 » 6 
COMMAND? NAV 
COURSE (0-92? 5 
FACTOR (6-8)? 4 
NOW ENTERING VEGA Ii CUADRANT . « . 
STARDATE 3832 
aa CONDI TI OW GREEN 
QUADRANT 4s 2 
<h> a SECTOR 4e & 
Be PHOTON TORPEDOES 9 
* TOTAL ENERGY 29 38 
SHIELDS 2669 


KLEWGONS NEHAINING 7 


COMMAND? LMS 
LONG PANGE SCAN FOR QUADRANT 4 + 2 


COMMAND? NAV 
COURSE (4-997 S 
VARDP FACTOR €G+8)7 1 


NOW ENTERING VEGA I QUADRANT « « - 


COMBAT AREA CONDITION RED 


* * STARDATE 3963 

CONDI TI ON #RED# 

QUADRANT 4e 1 

<k> SECTOR 4s 2 
++ PHOTON TORPEDOES 9 

TOTAL ENERGY 2926 

SHIELDS 2868 


KLINGONS REMALWING 7 

COMMAND? PHA 
PHASERS LOCKED ON TARGETS ENERGY AVAILABLE = 92@ UNITS 
NUMBER OF UNITS TO FIRE? 186 
2G) UNIT HIT ON KLINGON AT SECTOR Ss. 1t 

CSENSONS SHOW 28-4468 UNITS REMAINING) 
4: UNIT HIT ON ENTERPRISE FROM SECTOR 5 » 1} 

<SHIELDS DOWN TO 1959 UNITS> 

COMMAND? PHA 
PHASERS LOCKED ON TARGETS ENERGY AVAILABLE = $28 UNITS 
NUMBER OF UNITS TO FIRE? 14 
26 UNIT HIT ON IbINGON AT SECTOR 5.4 1 
week KLINGON DESTROYED %% 
COUMAND? LRS 
LONG RANGE SCAN FOR QUADRANT 4 » 1 


COUMANE? NAY 
COURSE (2-9)? 2 
VARP FACTOR (6-8)? 1.414 


NOW ENTERING PROCYON IL QUADRANT .« « . 


COMBAT AREA 
STARDATE 3GG4 
CONDI TE OW # RED 
QUADRAN T 3. 2 
Hite Ea SECTON PB. 5 
te PHOTON TORPEDOES 9 
TOTAL ENERGY a744 
SHIELDS 1959 


KLINGONS REMAINING 6 


COMMAND? Col 
COMPUTER ACTIVE AND AVAITING COUNAND? 2 


Froir ENTERPRISE TO KLINGON BATTL 
DIRECTION 575 

DISTANCE = 5 

COMMAND? LAS 

LONG RANGE SCAN FOR GUADPANT 3, 2 


CRUSER 


HMAND? TOR 
PHOTON TORPEDO COURSE ¢€1-9)? 5-75 
TORPEDO TRACK: 


2s 
3 
3. 
461 
ROY ED sexx 


KLINGON DEST 
COMMAND? CO 
COMPUTER ACTIVE AND AVALTING CONMAND? 2 


COMPUTER RECORD OF GALAXY FOR CUADRANT 3.4 2 


COMMAND? UAV 
COURSE (9-9)? 7 
ARP FACTOR (6-8)? 4 


NOW ENTEMRLIUG SAGITTANIUS Il QUADRANT - «. + 


STANDATE 3265 

* CONDI TI ON GrEEN 

a CUADRAN T Ts @ 

* SECTOR be 5 
PHOTON TORPEDOES & 

TOTAL ENENGY 279s 

SHULELDS 1959 


KLINGONS REMAINING 5 


COMMAND? LRS 
LONG RANGE SCAN FOR QUADRANT 7 + 2 


COMMAND? NAV 
COURSE (8-997 1} 
WARP FACTOR (8-8)7 3 


NOW ENTERING ARCTURUS I QUADRANT « « « 


* <H> STANDATE 3886 
* CONDI TION GREEN 
* QUADRANT 7 5 
* SECTOR Ps 5 
* PHOTON TORPEDOES 8 
* TOTAL ENERGY 2666 


SHIELDS 1959 
KLINGONS REMAINING 5 


COMMAND? NAV 
COUNSE (8-9)? 1 
WARP FACTOR (2-8)? 2 


NOW ENTERING ARCTURUS III QUADRANT +» « « 


<k> STARDATE 3007 
* CONDI TI ON GREEN 
* oo QUADRANT 7. 7 
* SECTOR Ps 5 
PHOTON TORPEDOES 8 
TOTAL ENERGY 2648 
SHIELDS 1959 
og KLINGONS REMAINING 5 


COMMAND? LAS 
LONG RANGE SCAN FOR QUADRANT 7 +» 7 


COMMAND? COM 
COMPUTER ACTIVE AND AWAITING COMMAND? a 


COMPUTER RECOMND OF GALAXY FOR QUADRANT 7 +» 7 


COMMAND? COH 
COMPUTER ACTIVE AND AWAITING COHMAND? 1 


STATUS REPORT: 
MLINGONS LEFT: 5 
MESSION MUST BE COMPLETED IN 18 STARDATES 
THE FEDERATION IS MAINTAINING 3 STANBASES IN THE GALAXY 


DEVICE 

WARP ENGINES 

SHORT RANGE SENSORS 
LONG RANGE SENSORS 
PHASER CONTROL 
PHOTON TUBES 
DAMAGE CONTROL 
SHIELD CONTROL 
LIBRARY-CONPUTER 


STATE OF REPAIR 


aHQaveaReo 


COMMAND? COM 
COMPUTER ACTIVE AND AVALTING COMMAND? 4 


DI RECTION/DI STANCE CALCULATOR: 
YOU ARE AT QUADRANT 7 » 7 SECTOR 1» 5 
FLEASE ENTER 
INITIAL COORDINATES (XsY)? 77 
FINAL COORDINATES (Xs¥)? 48 
DIRECTION = 266667 
DISTANCE = 3.16228 
COMMAND? NAV 
COURSE (8-9)? 2.66667 
WARP FACTOR (8-8)? 3.16228 


Laterinthe run.... 


NOW ENTERING SIRIUS I QUADRANT +» + « 


COMBAT AREA CONDITION RED 


STANDATE 3G12+6 
He CONDI Ti ON +* RED* 
QUADRANT Ps 5 
4 SECTOR 5. 2 
Ce> ++ Ba PHOTON TORPEDOES 5 
TOTAL ENERGY 174) 
SHIELDS 691 
* KLINGONS REMAINING 2 


COMMAND? TOR 
PHOTON TORPEDO COURSE €1-9)? 1 
TOMNPEDO TRACI: 
5. 3 
sack KLINGON DESTROYED ‘kk« 
COMMAND? NAV 
COURSE (3-9)? 5S 
WARP FACTOR (8-897 1 
DAMAGE CONTROL REPORT: LIBRARY-~COMPUTER REPAIR COMPLETED- 


NOW ENTERING ANTARES I! QUADPAIT « « « 


COMBAT AREA 


CONDITION RED 


* STARDATE 391366 
tk ie CONDI TI ON * RED* 
* QUADRANT ba 4 
co SECTOR S+. 2 
<%> ES PHOTON TORPEDOES 4 
TOTAL ENENGY 1721 
SHIELDS B91 
* * ple RLINGONS RENAINING 1 


COMMAND? COW 
COMPUTER ACTIVE AND AYAITING COMHAND? 3 


FROM ENTERPRISE TO STANBASE: 
DIEECTION = &+4 
DISTANCE = 5+$3295 
CONMANGD? NAV 
COURSE (6-9)? Gea 
YARP FACTOR (2-8)? «5836095 
154 UNIT HIT ON ENTERPRISE FROM SECTOR 3+. 3 
<SHIELDS DOWN TO 737 UNITS> 
DAHNAGE CONTROL REPONTS "LONG RANGE SENSORS DAMAGED BY THE HIT! 
DANAGE CONTROL REPORT: LOGNG RANGE SENSORS REPAIN COMPLETED. 
MARP ENGINES SHUT DOWN AT SECTON 7 » 6 DUE TO BAD NAVAGATI ON 
SHIELDS DROPPED FOR DOCKING PURPOSES 


* STARDATE 3G Lael 
* SONDI TI ON DOCKED 
++ a QUADRAN T bso 4 
SECTOR 7+ 6 
a PHOTON TORPEDOES 1G 
TOTAL ENERGY 3982 
<k> SHIELDS i) 


KLIQGONS REMAINING | 


COMMAND? DAH 


DEVICE STATE OF REPAIR 
WATP ENGINES B 

SHONT RAL QE SENSORS g 

LONG RANGE SENSONS +26 
PHASER CONTROL g 

PHOTON TUBES 5 

DANAGE CONTROL & 

SHILELD CONTROL Patsy 
LIGRARY-COMPUTER 18 


COMMAND? CON 
COMPUTER ACTIVE AND AWAITING COMMAND? 5 


THE GALAX 
1 2 3 4& 5 


COMMAND? PHA 

FHASERS LOCKED ON TARGETS ENERGY AVAILAELE = 3898 UNITS 
NUMBER OF UNITS TO FIRE? 2989 

t4t5 UNIT HIT ON KLINGON AT SECTOR 3 4 3 

ear KLENGON DESTROYED 4% 

CONGRULATI ON, CAPTAIN! THE LAST KLINGON BATTLE CRUISER 
MENACING THE FEDERATION HAS.BEEN DESTROYED. 


YOUR EFFICIENCY RATING IS 321-911 


THE FEDERATION IS IN NEED OF A NEW STARSHIP CONNMANDER 
FOR A SIMILAR MISSION -- IF THERE 1S A VOLUNTEER- 
LET HIN STEP FORWARD AND ENTER 'AYE'? NAY 
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Synonym 


Asynonym of a word is another word Thy Agata SYNGNYH GF PIT? CAVE 
(in the English language) which has the WHAT IS A SYNONYM OF PIT? CAVERN 
same, or very nearly the same, mean- TRY AGAIN. 
ing. This program tests your WHAT 18 A SYNONYM OF PIT? HOLE 
knowledge of synonyms of a few RIGHT 
common words. 

The computer chooses a word and WHAT IS A SYNONYM OF HOUSE? DWELLING 
asks you fora synonym. The computer soo! 
then tells you whether you’re right or 
wrong. If you can't think of asynonym, WHAT IS A SYHONYN OF PUSH? SHOVE 
type “HELP” which causes a synonym coop! 


to be printed. 
You may put in words of your choice 
in the data statements (510-600). The CHECK 
number following DATA in Statement 
500 is the total number of data 


WHAT IS A SYNONYM OF STOP? HALT 


statements. In each data statement, the cHecn TS A SYNONYM OF PAIN? HURT 
first number is the number of words in 
that statement. SYNONYH DRILL COMPLETED. 
Can you think of a way to make this 
i kin CAl 2 PRINT TAB(33):"SYNONYH" 
into a vor a general 2 dof 4 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
program tor any subject’ . & PRINT: PRINT: PRINT 
Walt Koetke of Lexington High 10 DIN RS(5),US(10),L(30),R(30) 
School, Massachusetts created this 20 REC1)=°RIGHTYs RS(2)="CORRECT": RSCDI="FINE’: RSC4)="G005!" 
program. 70 too 


70 PRINT "A SYNONYM OF A WORD HEANS ANOTHER UCRD IN TRE ENGLISH” 

100 PRINT "LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SANE"; 

110 PRINT " MEANING.” 

130 PRINT “I CHOOSE A WORD -~ YOU TYPE A SYNONYH.” 

140 PRINT “IF YOU CANT THINK OF A SYNONYM, TYPE THE UGRD “HELP’” 
T45 PRINT "AND TF WELL TELL YOU A SYNONYH.": PRINT 

150 RESTORE: C=C+t: READ N 

160 IF CN THEN 420 

170 NI=INTCRND( ED eN+T) 


SYNONYH 174 IF REN1)=1 THEN 170 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 176 RINT) 21 
180 FOR T=1 TO Nt 
A SYNONYN OF A WORD HEANS ANOTHER WORD IN THE ENGLISH 170 READ N2 
LANGUAGE WHICH HAS THE SANE OR VERY NEARLY THE SAME MEANING. on tre ust N2 
I CHOGSE A WORD -- YOU TYPE A SYNONYH. a0 ene 4 J 
IF YOU CAN’T THINK OF @ SYNONYM, TYPE THE UORD “HELP* a0 Meat 


AND I WILL TELL YOU A SYNONYH, 232 FOR J=1 TO N22 LON=ds NEXT J 


235 LCQDEN2: Gls PRINT 
237 LCBSL(L (OD) L(Q)SN2-12 PRINT 


WHAT IS A SYNONYM OF RED? HELP 240 PRINT " WHAT IS @ SYNONYM OF "sUS(G)s: INPUT A$ 
aeae A SYNONYM OF RED IS RUBY. 250 IF A$="HELP" THEN 340 
260 FOR K=1 TO 82 
WHAT IS A SYNONYM OF RED? SCARLET 270 IF G=K THEN 290 
RIGHT 280 IF AS=W$(K) THEN 320 
290 NEXT K 
300 PRINT “ TRY AGAIN,": GGTO 240 
WHAT IS A SYNONYN OF MODEL? FORM 320 PRINT RSCRND(1)#5+1): GOTO 150 
TRY AGAIN. 340 GIINTCRND( ED FL (0414) 
UHAT IS A SYNONYM OF MODEL? HELP 460 PRINT “#eee A SYNONYM OF "SUS(G*3" IS "sUSCL(Gt))s".": PRINT 
see A SYNONYM OF HODEL 19 PATTERN. 370 LIGIIELCL(O)})s LCQIEL(O)-f: GOTO 240 
420 PRINT: PRINT “SYNONYM DRILL COMPLETEW.": GOTO 999 
WHAT IS A SYNONYM OF MODEL? PROTOTYPE 500 DATA 10 ; 
GoOD! 510 DATA 5, "FIRST", "START", "BEGINNING" , "ONSET", "INITIAL® 


520 DATA 5,"SINILAR", "ALIKE", "SAHE", "LIKE", "RESEMBLING" 
530 DATA 5,"MODEL", "PATTERN", "PROTOTYPE", "STANDARD", "CRITERION" 
WHAT IS A SYNONYM OF SHALL? LITTLE 540 DATA 5, "SHALL", “INSIGNIFICANT”, "LITTLE", "TINY", "MINUTE" 
Good! 550 DATA 6,"STOP", "HALT", "STAY", “ARREST”, "CHECK", “STANDSTILL” 
560 DATA 6, "HOUSE", "DWELLING", "RESIDENCE", "DOMICILE", "LODGING" 
565 DATA “HABITATION” 
WHAT IS A SYNONYM OF SIMILAR? LIKE 570 DATA 7,°PIT", "HOLE", "HOLLOW", "WELL", "GULF" ,"CHASN", "ABYSS" 
CORRECT 580 DATA 7,"PUSH", "SHOVE", "THRUST", "PROD", “POKE","BUTT", "PRESS" 
570 DATA 6,"RED","ROUGE", "SCARLET", "CRIMSON", "FLAME", "RUBY" 
600 DATA 7,"PAIN", “SUFFERING”, "HURT", "HISERY®, "DISTRESS", "ACHE" 
WHAT IS A SYNONYM OF FIRST? START 605 DATA "DISCOMFORT® 
CORRECT 999 END 
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Target 


in this program, you are firing a 
weapon from aé spaceship in 3- 
dimensional space. Your ship, the 
Starship Enterprise, is located at the 
origin (0,0,0) of a set of x,y,z coor- 
dinates. You will be told the ap- 
proximate location of the target in 3- 
dimensional rectangular coordinates, 
the approximate angular deviation 
from the x and z axes in both radians 
and degrees, and the approximate 
distance to the target. 

Given this information, you then 
proceed to shoot at the target. A shot 
within 20 kilometers of the target 
destroys it. After each shot, you are 
given information as to the position of 
the explosion of your shot and a 
somewhat improved estimate of the 
location of the target. Fortunately, this 
is just practice and the target doesn’t 
shoot back. After you have attained 
proficiency, you ought to be able to 
destroy a target in 3 or 4 shots. 
However, attaining proficiency might 
take a while! 

The author is H. David Crockett of 
Fort Worth, Texas. 


TARGET 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


YOU ARE THE WEAPONS OFFICER ON THE STARSHIP ENTERPRISE 

AND THIS 1S A TEST TO SEE HOW ACCURATE A SHOT YOU 

ARE IN A THREE~DIMENSIONAL RANGE. YOU WILL BE TOLD 

THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION 

OF THE TARGET IN THREE DIMENSIONAL RECTANGULAR COORDINATES, 
THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z 

AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET. 

YOU WILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IF IS 
DESTROYED! 


GOOD LUCK! 


RADIANS FROM X AXIS = 4.46501 FROM Z AXIS = 2.65935 

TARGET SIGHTED: APPROX COORDINATES X=-7551.63 Y=~29901.3 
ESTIMATED DISTANCE= 64490 

INPUT ANGLE BEVEATION FROM X, DEVIATION FROM Z, DISTANCE? 230,110,46000 


Ze~58915.4 


RADIANS FROM X AXIS = 4.01424 FROM Z AXIS = 1.91985 
SHOT BEHIND TARGET 32314.7 KILOMETERS. 
SHOT TO RIGHT OF TARGET 17608 KILGNETERS, 
SHOT ABOVE TARGET 34342.5 KILOMETERS. 
APPROX POSITION OF EXPLOSION: X=-39864.4 
DISTANCE FROM TARGET = 51721 


Y=-47509.4 Z2-22572.9 


ESTIMATED DISTANCE= 66498 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 250,170, 66000 


RADIANS FROM X AXIS = 4.36331 FROM Z AXIS = 2.96705 
SHOT IN FRONT OF TARGET 3631.37 KILOMETERS, 
SHOT TO LEFT OF TARGET 19131.1 KILOMETERS. 
SHOT BELOW TARGET 6081.76 KILOMETERS. 
APPROX POSITION OF EXPLOSION: X=-3920.26 
DISTANCE FROM TARGET = 20400.3 


Ye~10770.5 Te" 64997 2 


ESTIMATED DISTANCE= 646499 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 260,155,66499 


RADIANS FROM X AXIS = 4.53784 FROM Z AXIS = 2.70525 
SHOT IN FRONT OF TARGET 2670.88 KILOMETERS. 
SHOT TO LEFTY OF TARGET 2224.05 KILOMETERS. 
SHOT BELOW TARGET 1352.85 KILOMETERS. 
APPROX POSITION OF EXPLOSION: X=~4880.76 
DISTANCE FROM TARGET = 3729.64 


Y=~27677.3 Z=~60268.3 


ESTIMATED DISTANCE= 66499.2 


INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 255,150,46499. 
2 


RADIANS FROM X AXIS = 4.45057 FROM Z AXIS = 2.61798 

SHOT BEHIND TARGET 1054.7 KILOMETERS. 

SHOT TO RIGHT OF TARGET 2215.73 KILOHETERS. 

SHOT ABOVE TARGET 1325.75 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-606.33 
DISTANCE FROM TARGET = 2789.17 


Y=~-32117.1 Ze-97589 .7 


f 


ESTIMATED DISTANCE= 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 254,145,46499, 
2 


RADIANS FROM X AXIS = 4.46803 FROM Z AXIS = 2.53072 

SHOT BEHIND TARGET 1476.41 KILOMETERS. 

SHOT TO RIGHT OF TARGET 7108.41 KILONETERS. 

SHOT ABOVE TARGET 4442.84 KILOWETERS. 

APPROX POSITION OF EXPLOSION: X=-9228.24 
DISTANCE FROM TARGET = 8548.64 


Y=~37009.7 Z=~94472.6 


ESTIMATED DISTANCE= 66499.2 
THPUT ANGLE DEVIATION FROM X, DEVIATION FRON Z, DISTANCE? 254,147,46499 


RADIANS FROM X AXIS = 4.46803 FROM Z AXIS = 2.56562 

SHOT BEHIND TARGET 1211.02 KILOMETERS. 

SHOT TO RIGHT OF TARGET 5241.18 KILOHETERS. 

SHOT ABOVE TARGET 3145.04 KILOMETERS, 

APPROX POSITION OF EXPLOSION: X=~-8742.65 
DISTANCE FROM TARGET = 6231.19 


Ye-39142.5 Z=-55770.4 


ESTIMATED DISTANCE= 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FRON Z, DISTANCE? 256,148, 46499 


RADIANS FROM X AXIS = 4.46803 FROM Z AXIS = 2.589.308 

SHOT BEHIND TARGET 974.203 KILOMETERS. 

SHOT TO RIGHT OF TARGET 4291.42 KILOMETERS. 

SHOT ABOVE TARGET 2521.43 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=~-8525.84 
DISTANCE FROM TARGET = 5071.78 


Y=~34192.8 Z2-56594 
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ESTIMATED DISTANCE= 66499.2 
TMPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 254,154, 66497 


RADIANS FROM X AXIS = 4.46803 FROM Z AXIS = 2.6878 

SHOT IN FRONT OF TARGET 498.672 KILOMETERS. 

SHOT TO LEFT OF TARGET 1615.52 KILOMETERS. 

SHOT BELOW TARGET 653.184 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-7052.96 Y=~26285.8 Z=~59768.6 
DISTANCE FROM TARGET = 1893.81 


ESTIMATED DISTANCE= 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 254,153,46499 


RADIANS FROM X AXIS = 4.46803 FROM Z AXIS = 2.67034 

SHOT IN FRONT OF TARGET 247.38 KILOMETERS. 

SHOT TO LEFT OF TARGET 607.723 KILOMETERS. 

SHOT BELOW TARGET 335.316 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-7304.25 Y=~29293.6 Z=-959250.7 
DISTANCE FROM TARGET = 736.859 


ESTIMATED DISTANCE= 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 256,152,66499 


RADIANS FROM X AXIS = 4.46803 FROM Z AXIS = 2.65289 

SHOT BEHIND TARGET 1.68652 KILOWETERS. 

SHOT TO RIGHT OF TARGET 391.156 KILOMETERS. 

SHOT ABOVE TARGET 200.602 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=~-7553.32 Y=~30292.5 Z=~58714:8 
DISTANCE FROM TARGET = 439,599 


10 PRINT TAB(33) "TARGET" 

20 PRINT TAB(15); "CREATIVE COMPUTING NORRISTOWN, NEW JERSEY" 

30 PRINT: PRINT: PRINT 

100 R=ts RI=S7.296: P=d.141592 

110 PRINT "YOU ARE THE WEAPONS OFFICER ON THE STARSHIP ENTERPRISE" 

120 PRINT "AND THIS IS A TEST TO SEE HOW ACCURATE A SHOT YoU" 

130 PRINT "ARE IN A THREE-DIMENSIONAL RANGE. YOU WILL BE TOLD” 

140 PRINT "THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION" 

150 PRINT “OF THE TARGET IN THREE DIMENSIONAL RECTANGULAR COORDINATES," 
160 PRINT "THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z" 

170 PRINT "AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET." 

180 PRINT “YOU WILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IT IS" 
190 PRINT "DESTROYED!": PRINT: PRINT "GOOD LUCK! !"s PRINT: PRINT 

220 A=RND(T)e2ePs BERND(1)#2¢Ps Q=INTCARRI): W=INT(BERT) 

260 PRINT "RADIANS FROM X AXIS ="SA;" FROM Z AXIS ="38 

280 PI=1OQ000#RND(1)4+RND( 1): X=SIN(B)SCOS(A)#P1: Y=eSINCB)¥SIN(A)#P1 

290 Z=COS(B)ePt 

340 PRINT “TARGET SIGHTED: APPROX COQRDINATES X="sxXe" Ye"sye  Zate7 
S45 RER+1: IF ROS THEN 390 

350 ON R GOTO 355,360,365,570,375 

355 PI=INT(PH*.05)#20: GOTO 3970 

360 PSSINT(PT#. 1) 910s GOTO 390 

365 PS=INT(PH#.5)¢2: GOTO 390 

370 PISINT(P1)s GOTO 390 

375 P3=Pi 

390 PRINT “ ESTIMATED DISTANCE="5P3 

400 PRINT “INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE"; 
405 INPUT A1,B1,P2 

410 PRINT: IF P2<20 THEN PRINT "YOU BLEW YOURSELF UP!1": GOTO 580 
420 AT=AT/Ris BI=BI/Ris PRINT "RADIANS FROK X AXIS ="SAt; 

425 PRINT "FROM Z AXIS ="3B1 

480 Xt=P2*SIN(BI)#COS(AT): YI=P2#SIN(BID#SIN(AT): Z1=P2*COS(BY) 
S10 D2CAXV-X) 724 CVE -Y) 24 (24-2) °29° 4/2) 

520 IF D>20 THEN 670 » 
S30 PRINT: PRINT " * # * HIT # * # TARGET IS NON-FUNCTIONAL": PRINT 
550 PRINT “DISTANCE OF EXPLOSION FROM TARGET WAS";D; "KILOMETERS" 

570 PRINT: PRINT "MISSION ACCOMPLISHED IN ";Rj" SHOTS." 

580 R=0: FOR I=i TO S: PRINT: NEXT Is PRINT "NEXT TARGET...": PRINT 
5970 GOTO 220 

670 X2=Xt-X: Y2"¥1-¥: Z2=Zt-Z: IF X2<0 THEN 730 

710 PRINT “SHOT IN FRONT OF TARGET";X2;"KILONETERS.": GOTO 740 

730 PRINT "SHOT BEHIND TARGET"; ~X2; "KILOMETERS." 

740 IF Y2<0 THEN 770 

750 PRINT "SHOT TO LEFT OF TARGET"; ¥2;"KILOMETERS."s: GOTO 780 

770 PRINT "SHOT TO RIGHT OF TARGET"}-¥2; "KILOMETERS." 

780 IF Z2<0 THEN 810 

7970 PRINT "SHOT ABOVE TARGET";Z2;"KILOMETERS.": GOTO 820 

810 PRINT “SHOT BELOW TARGET"$-22; "KILOMETERS." 

820 PRINT "APPROX POSITION OF EXPLOSION: X="sx1g" 0 Y="f¥te" | Z="e74 
830 PRINT “ DISTANCE FROM TARGET ="2De PRINT: PRINT: PRINT: GOTO34S 
999 END 


a 


freee reas 
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3-D Plot 


3-D PLOT will plot the family of curves 
of any function. The function Z is 
plotted as “rising” out of the x-y plane 
with x and y inside a circle of radius 30. 
The resultant plot looks almost 3~- 
dimensional. 

You set the function you want plotted 
in line 5. As with any mathematical plot, 
some functions come out “prettier” 
than others. Here are some that work 
nicely: 

5 DEF FNA (2) = 30*EXP (-Z*Z/100) 
5 DEF FNA (Z)=SQR (900.01-Z*Z) *.9-2 
5 DEF FNA (2) = 30*(COS(Z/16) 2 
5 DEF FNA (Z) = 30-30*SIN (Z/18) 


5 DEF FNA (2) = 30*EXP (-COS (Z/16) ) -30 
(Bessel function—Summerfeld’s Integral) 


5 DEF FNA (Z) = 30*SIN (2/10) 
The author of this amazingly clever 
program is Mark Bramhall of DEC. 


3D PLOT 
CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 
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1 PRINT TAB(32)3"3D PLOT" 
2 PRINT TAB(15);"CREATIVE COMPUTING HORRISTOUN, NEW JERSEY" 
3 PRINT:PRINT:PRINT 

5 DEF FNA(Z)=©306EXP(-Z#2/100) 

100 PRENT 

1t0 FOR X=-30 TO 30 STEP 1.5 

120 Leo 

130 Y1=5eINT(SGR(900-X#X)/5) 

140 FOR Y=¥1 TO -Y1 STEP -§ 

150 Z=INT(25+FNA(SOR(X¥X+Y8Y) )~. 787). 

160 IF Z<=L THEN 190 

170 Lez 

180 PRINT TAB(Z)3%e"; 

190 NEXT Y 

200 PRINT 

210 WEXT X 

300 ERD 
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3-D TIC-TAC-TOE is the game of tic- 
tac-toe in a 4x4x4 cube. You must get 4 
markers in a row or diagonal along any 
3-dimensional plane in order to win 

Each move is indicated by a 3-digit 
number (digits not seperated by commas), 
with each digit between 1 and 4 inclusive. 
The digits indicate the level, column, and 
row, respectively, of the move. You can win 
if you play correctly; although, it is consid- 
erably more difficult than standard, two- 
dimensional 3x3 tic-tac-toe. 

This version of 3-D TIC-TAC-TOE is 
from Dartmouth College. 


TIC TAC TOE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


BO YOU WANT INSTRUCTIONS? YES 


THE GAHE 19 TIC-TAC-TOE IN A 4X 4X 4 CUBE. 

EACH MOVE IS INDICATED BY A 3 DIGIT NUMBER, WITH EACH 
DIGIT BETWEEN 1 AND 4 INCLUSIVE, THE DIGITS INDICATE THE 
LEVEL, ROW, AND COLUMN, RESPECTIVELY, OF THE OCCUPIED 
PLACE. 


TO PRINT THE PLAYING BOARD, TYPE 0 (ZERO) AS YOUR HOVE. 
THE PROGRAM WILL PRINT THE BOARD WITH YOUR MOVES INDI- 
CATED WITH A (Y), THE HACHINE’S MOVES WITH AN (MH), AND 
UNUSED SQUARES WITH A ( ). 


TO STOP THE PROGRAM RUN, TYPE 1 AS YOUR HOVE. 
DO YOU WANT TO MOVE FIRST? YES 


YOUR HOVE? 122 

NACHINE MOVES TO tit 

YOUR HOVE? 112 

MACHINE MOVES TO 411 

YOUR MOVE? 412 

NACHINE MOVES TO 414 

YOUR MOVE? 212 

NICE TRY MACHINE HOVES TO 312 
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YOUR HOVE? 0 
(mw) (Y) () (>) 


YOUR HOVE? 442 

NACHINE NOVES TO 114 

YOUR HOVE? 214 

MACHINE MOVES TO 213 , AND WINS AS FOLLOWS 
avi 3120 213-4 

BO YOU WANT TO TRY ANOTHER GAHE? NO 


LIST 
20 PRINT CHRS(26)<WIDTH 80 


100 


PRINT TAB(33)}"QUBIC"ZPRINT 
PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 
PRINT:PRINT: PRINT 
PRINT "DO YOU YANT INSTRUCTIONS"s 
INPUT C$ 
IF LEFTS(C$,1)="N" THEN 315 
IF LEFTS(CS,1)="Y" THEN 265 
PRINT "INCORRECT ANSWER, PLEASE TYPE “YES” OR “NO'"s 
GDTO 220 
PRINT 
PRINT "THE GAME 15 TIC-TAC~TOE IN A 4X 4X 4 CUBE." 
PRINT "EACH MOVE IS INDICATED BY & 3 DIGIT NUMBER, WITH EACH" 
PRINT "DIGIT BETWEEN 1 AND 4 INCLUSIVE. THE DIGITS INDICATE THE® 
PRINT "LEVEL, ROW, AND COLUMN, RESPECTIVELY, OF THE OCCUPIED" 
PRINT “PLACE. ° 
PRINT 
PRINT "TO PRINT THE PLAYING BOARD, TYPE © (ZERO) AS YOUR MOVE.” 
PRINT "THE PROGRAM WILL PRINT THE BOARD WITH YOUR MOVES INDI-" 
PRINT “CATED WITH A (Y), THE MACHINES MOVES WITH AN (M), AND” 
PRINT “UNUSED SQUARES YITH A ( >." 
PRINT 
PRINT "TO STOP THE PROGRAM RUN, TYPE 1 AS YOUR MOVE." 
PRINT PRINT 
DIM X64) ,L(076),8076,49, 116) 
FOR F = 1 10 16 
READ YC¢E) 
REXT I 
FOR I= 10 76 
FOR J= 1 10 4 
READM(I, J) 
NEXT J 
NEXT I 
FOR 1 = 1 10 64 
LET X (1) =0 
NEXT I 
LET Z=1 
PRINT “BO YOU WANT TO MOVE FIRST"s 
INPUT S$ 
IF LEFTS(S$,1)=°N" THEN 430 
IF LEFTS(9$,1)="Y" THEN 500 
PRINT “INCORRECT ANSWER. PLEASE TYPE “YES” OR “NO’."; 
GOTO 450 
PRINT " * 
PRINT “YOUR mUvE"s 
LNPUTJI 
If Ji=1 THEN 2770 
LF J1<>0THENS25 
GOSUB 2550 
BOTOSO0 
IFJ14111 THEN2750 
IFJ1>444THEN2750 
GOSUB 2500 
LETKISINTCI1/100) 
LET J2=(J1-K1#100) 
LET K2=INT(I2/10? 
LET K3= J1 - Kietag -K2e10 
LET M=TG#K144#K2+H3-20 
IF X(H)=0 THEN 620 
PRINT “THAT SQUARE IS USED, TRY AGAIN." 
GOTO 500 
LET X¢H)=1 
GOSUB 1640 
det 
Ist 
J=t THEN 72 
IF J=2 THEN 790 
IF J=3 THEN 940 
l=sfti: EF I<=74 THEN 660 
JeJtts IF J¢#3 THEN 650 
GOTO 1300 
IF LCL)4>4 THEN 690 
PRINT "YOU WIN AS FOLLOWS": 
FOR J=1 10 4 
LET MEM(L,J) 
BOSUB 15770 
NEXT J 
GOTO 1490 
IF LC1)<>15 THEN 690 
FOR J=1 TO 4 
LET M=HC1,J) 
IF X(M2<20 THEN 860 
LET X(H)=5 
PRINT "MACHINE MOVES TO"; 
GOSUB 1570 
NEXT J 
PRINT “, AND WINS AS FOLLOWS" 
FOR J=t TO 4 
LET MEMCL,J) 
BOSUB 1570 
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910 NEXT J 
920 GOTO 1490 


730 


IF LCL)0>9 THEN 690 


940 PRINT "NICE TRY. MACHINE MOVES TO": 


950 
760 
970 
780 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1070 
1100 
1110 
1420 
1130 
1140 
1190 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1240 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1920 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1900 
1510 
182 
{530 
1540 
1950 
1560 
1570 
1980 
1570 
1600 
1610 
1620 
1430 
1640 
1450 
1660 
1670 
1680 
1670 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 


FOR u=1 TO 4 

LET M=H(I,u) 

LF XCH)<>0 THEN 1010 
LET X(H) 55 

BOSUB 1570 


BNTO 500 

NEXT J 

BOTO 1300 

11 

LET LCD D=X (HCD, TD 4X CME 2) AX HCL, BP) AXCMCT AD? 
LET L = LOL) 

IF L <2 THEN 1130 

IF L>=3 THEN 1130 

If L>2 THEN 2230 

FOR J = 1 104 

IF XCHCL, 029290 THEN 1120 
LET XCM(1,J))=1/8 

NEXT J 

l=Itt: IF I¢=76 THEN 1040 
GOSUB 1640 

Ist 

IF L€L)21/2 THEN 2360 

IF LCL}=143/8 THEN 2360 
I=L4t¢ IF 1<=76 THEN 1160 
GOTO 1830 

LET Z = 

IF X€¥(Z)}=0 THEN 1250 
LET Z=Z+1 

If 217 THEN 1210 

60TO 1720 

LET M=Y(Z) 

LET X(i#t)25 

PRINT "MACHINE MOVES TO": 
BOSUB 1570 

GOTO 500 

LET X=X 

I=1 

LET LCLISXCMCL, EDDA (HCL, 2) 4X (MCL, 3) AXCNCL ADD 
LET L=L(L) 

IF L<10 THEN 1410 

IF Let) THEM 1410 

IF L>10 THEN 2230 

FOR J=1 10 4 

TF XCMCL,U) 000 THEN 1400 


LET XCM(1,J))21/8 

WEXT J 

Tsft): IF [T<=74 THEN 1320 
GOSUB 1640 
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IF LOL)=.5 THEN 2360 

IF L(1)#5+3/8 THEN 2360 
T=: IF [<e76 THEN 1440 
GUSDB 2900 

GOTO 1030 

PRINT " 


PRINT “DO YOU WANT [O TRY ANOTHER GAME": 
INPUT X$ 

IF CEFTS(X$,t)="Y" THEN 400 

IF LEFTS(¢X$,7)2°N" THEN 15460 


PRINT "INCORRECT ANSWER. PLEASE TYPE “YES* OR "woes 


GOTO 1510 

RUN “MERU” 

LET KESENTC(H-1 2/16) 41 

LET J22H-16#(KI-1) 

LET ROSENTOCI2-1)/4)44 

LET K3EH~(K1-1)416=(K2-1) 84 
LET MEKTE1OOHK2E10+K3 

PRINT ts 

RETURN 

FOR S=1 10 76 

LET Jt = 4(8,1) 

LET J2=H(5,2) 

LET J3=M(S,3) 

LET J4=4(8,4) 

LET LES) =X CST) 4X (G2) #X (GEEK CUD 
NEXT § 

RETURN 

FOR L=1 TO 64 

IF X€1)<20 THEN 1800 

LET X(1)25 

LET =I 

PRINT “MACHINE LIKES"; 
GOSUB 1570 

PRINT “ * 

6oTa 500 

NEXT I 

PRINT "THE GAME IS A DRAWL* 


2320 GOTO 500 
1820 GOTO 14970 


2330 NEXT J 
1830 FOR K=1 TO 18 2340 PRINT “MACHINE CONCEBES THIS GAME.” 
1840 LET P=0 2350 GOTO 1490 
$850 FOR [=44k-3 TO 44k 2360 LET $=1/8 
1860 FOR Jet TO 4 2370 IF I-INT(1/4)#4>1 THEN 2400 
1870 LET PeP+X(M(1, J) 2380 LET A=t 
1880 NEXT J 2370 GOTO 2410 
1890 NEXT I 2400 LET A=? 
1900 1F Pea THEN 1940 2410 FOR J=A 10 5S-A STEP 5-260 
1910 TF Ps THEN 1970 2420 IF X(MC1,J))=5 THEN 2450 
1920 IF P<? THEN 1940 2430 NEXT J 
1930 IF P10 THEN 1970 2440 GOTO 2000 
1940 NEXT K 2450 LET X(MCL,U) 225 
1950 GOSUB 2500 2460 LET MEHCI,J) 
1960 GOTH 1200 2470 PRINT "MACHINE TAKES"; 
1970 LET S=t/8 2480 GOSUB 1570 
1980 FOR I=4#k-3 TO 4eK 2490 GOTO S00 
1999 GOTO 2370 2500 FOR I=1 TO 64 
2000 NEXT I 2510 IF X€L}<O1/8 THEN 2530 
2010 LET S=¢ 2520 LET X(I)=0 
2020 GOTO 1980 a 2530 HEXT I 
2030 DATA 1,49,52,4,13,61,64,16,22,397,23,38,26,42,27,43 sto RETURN 
2040 DATA 1,235 4,5)6,7,8 710,11, 12,13, 14, 15,16, 17,18,19,2 2550 FOR XX=1 TO PsLPRINTINEXTSFORT=1104 
2050 DATA 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38 2560 FORJE1TO4 
2060 DATA 39,40,41,42,43, 44,45, 46,47, 48,49, 50,51 ,52,953,54,59,56 2562 FORII=1TO¥ 
2070 DATA 57,58,57,60,61,62,63,64 > RINT! ts 
2080 DATAL, 174 55,47,5, 21,3793, 9 25, 41,57, 13,29, 45,61 see henry , 
2070 DATA 2,18,34,50,6,22,38,54, 10,26, 42,58, 14,40, 46,62 2570 FORK=1T04 
2100 DATA 3,19,35,51,7,23,39,55,11,27, 43,59, 15,51 447,63 2600 LET Q21gtleanset-20 
2110 DATA 4,20, 36,52, 8)24,40,56, 12,28, 44,60,16,32, 48,64 2610 IFX(O) CoOTHEND630 
2120 DATA 1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,41 2620 LPRINT"( 9 us 
2120 DATA 2,6,10,14,18,22,26,40,34, 38,42, 46, 50,54, 58,62 2430 IFX(Q)<>5THEN2650 
2140 DATA 3,7,11,15,19,23,27,31,35,39,43, 47,51 55,59 ,63 2640 LPRINT™LH) - 
2150 DATA4,8,12,16,20,24,28, 52,36, 40,44, 48,52,56,40, 44 2650 IFX(G) <> 1 THEN2860 
2160 DATAI,4,11,16,17,22,27,32,33, 58,43 ,48,47,54,59, 64 2685 LPRINT" UY) uy 
2170 DATA 13,10,7,4,27,26,23,20,45,42,39,36,61, 58,55 ,52 2660 IF X(B)<21/BTHEN2G 70 
2180 DATAT,21,41,61,2,22,42,62,3,23, 43 ,65,4,24,44,64 2665 LERIAT"( ) - 
2190 DATA 49,37,25,15,50,38,26,14,51,39,27,15,52,40, 28,16 2670 NEXTK 
2200 DATA 1,18,35,52,5,22,37,56,9,26,43,40,13,40,47,64 3680 LPRINT 
2210 DATA 49,34,19,4,53,38,23,8,57, 42,27, 12,61, 46,31 ,16 2690 LPRINT 
2220 DATA t,22,43,64,16,27,38,49,4,23,42,41,15,26,39,52 2700 NEXTJ 
2230 FOR J=1 TO 4 2740 LPRINE 
2240 IF XCHCL,J))<91/8 THEN 2330 3720 LPRINT 
2250 LET X(M(L,J))55 2730 NEXTI 
2260 IF L¢I)<5 THEN 2290 SP35 LPRINT CHRS(12) 
2270 PRINT “LETS SEE YOU GET OUT OF THIS: MACHINE MOVES TO"; 2740 RETURN 
2280 GOTO 2300 . 2750 PRINT"INCORRELT MOVE, RETYPE 1T--"} 
2290 PRINT "YOU FOX. JUST IN THE NICK OF TIME, MACHINE MOVES TO"; 2740 GOTO520 
2300 LET M=M(I,J) 2770 RUN "MENU" 
2510 GOSUB 1570 
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The game of tic-tac-toe hardly needs any 10 PRINT TAB(30);"TIC TAC TOE” 
introduction. In this one, you play versus 20 PRINT TABCIS); “CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
the computer. Moves are entered by 3 PRINTSPRINTEPRINT 
number: 100 REM THIS PROGRAH PLAYS TIC TAC TOE 

110 REM THE MACHINE GOES FIRST 
123 120 PRINT “THE GAME BOARD IS NUMBERED:": PRINT 
130 PRINT “1 20 3": PRINT “8 9 4%: PRINT "2 6 5" 
140 PRINT 
4 65 6 150 REN 
160 REH 
170 RE 
789 180 DEF FHN(X)=X-B6INT((X-1)/8) 
190 REH 

If you make any bad moves, the com- 200 REN HAIN PROGRAH 
puter will win; if the computer makes a bad 370 phi 
move, you can win; otherwise, the game 230 Aeg 
ends in a tie. 240 Kaa 

A second version of the game is included 230 GOSUB 650 
which prints out the board after each move. 370 enn (pat) 

This is ideally suited to a CRT terminal, 280 H=B 
particularly if you modify it to not print out 290 GOSUB 650 
wb each move, rath 300 Gh 
a mh card after ke th ove, but er 310 IF Q=FNN(B+4) THEN 360 
use the cursor to make the move. 320 CeFNN(B+4) 

The first program was written by Tom 330 Hee 

Koos while a student researcher at the a0 pate oa. 
Oregon Museum of Science and Industry, aso CaFNN(B#2) 
it was extensively modified by Steve North 370 NEC 
of Creative Computing. The author of the 380 GOSUB 450 
second game is Curt Flick of Akron, Ohio. 370 ReH 
400 IF R=FNN(C+4) THER 450 
410 DaFHN(C+4) 
420 H=D 
430 GOSUB 700 
440 GOTO 730 
TIC TAC TOE 450 IF P/2<>INT(P/2) THEN 500 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 460 DeFNA(C+7) 
470 W=D 
480 GOSUB 700 

E BA u 
THE GAME BOARD IS NUMBERED: 490 BOTO 730 
123 500 DeFNH(C#3) 
ao 4 510 H=D 
765 520 GOSUB 650 

530 S=H 
540 IF S=FNM(D+4) THEN 590 
550 E=FNK(D+4) 
560 HEE 
R 
YOUR NOLEN es 9 570 GOSUB 700 
COMPUTER HOVES 4 560 REM 
YOUR MOVET 8 590 EsFNN(D+6) 
COMPUTER HOVES 6 500 KE 
YOUR HOVE? 7 610 GOSUB 700 
COMPUTER MOVES 2 620 PRINT "THE GAME IS A DRAW" 
AND UINS esvceses 630 GOTO 210 
640 REM 
COMPUTER MOVES 9 650 GOSUB 700 
YOUR HOVE? 5 660 PRINT “YOUR HOVE"; 
COMPUTER HOVES 6 670 INPUT 4 
YOUR MOVE? 2 680 RETURN 
COMPUTER HOVES 8 700 PRINT "COMPUTER NOVES":H 
YOUR MOVE? 4 710 RETURN 
COMPUTER MOVES 3 720 REK 
YOUR MOVE? 7 730 PRINT “AND WINS e¢eenene” 
COMPUTER MOVES 1 740 GOTO 210 
THE GAME IS A DRAW 750 END 
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2P 
4P 
6 P| 
oP 
10 
12 
14 
16 
20 
50 
55 
60 
100 
102 
103 
104 
105 
106 
107 
108 
109 
116 
111 
112 
113 
114 
WS 
116 
118 
120 
122 
126 
128 
130 
131 
132 
133 
135 
136 
138 
150 
152 
156 
158 
160 
161 
162 
163 
165 
166 
168 
170 
71 
172 
173 
174 
175 
176 
17? 
178 
179 
181 
182 
183 
187 
187 
195 
202 
205 
450 
ASS 
460 
465 
467 
475 
500 
502 
503 
505 
506 
510 
520 
530 
100 
101 
10t 
104 
101 
102 
103 
104 
105 
106 


RINT TAB(30);"TIC-TAC~TOE® 


RINT TABCHS) "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


RINT:PRINT:PRINT 
RINT “THE BOARD IS NUNBERED:" 
PRINT "1 2° 3* 
PRINT "405 6" 
PRINT "7 8 9" 
PRINT :PRINTsPRINT 

DIK S(9) 

INPUT"DD YOU WANT “X’ OR “O°"sC$ 
IFCS="X" THENA7S 
Pe="O"sag="X" 

G=~1:H=1s 1FSC5)COTHEN103 
$(5) 2-1 sG0TO195 

1FS(5)<>1 THENIO6 
1FS(1)<>0THENI10 

S(1) "126070195 

IFS (2)=1ANDS(1)=OTHEN181 
IFS(4)=1ANDS(1)=O0THENI81 
IFS(S)=1AND $(9)=OTHENIA? 
1FS(8)=1ANDS(9)=O0THENI89 
IFG«tTHENTt2 

G0TO118 

JeSeINT (CH= 10/3041 
IFS@INT((H=1)/3)41 =HTHENK=1 
IFSSINT((H-1)/3)42=HTHENK=2 
IFSSINT ((H-1)/3)+35HTHENK=3 
6010120 

FORJ=1TO7STEP3 cFORK=1703 
IFS (J) OGTHENIIO 

IFS (J+2)<>GTHENT35 

IFS (+1) C>OTHENTSO 
S(J+1)2~1 6070195 

IFS (J) =HTHENISO 

IFS (J#2)<>GTHENT5O 

IFS (J+1) <>GTHENISO 
$(J)3+1:G0T0195 

IFS (J#2)<>0THENT SO 
IFS(d+1 <> GTHENTSO 
8(J+2)2~12G0TO195 

IFS (K)<>GTHEN160 

IFS (K+) <>GTHENT 6S 

IFS (K+3) <>0THENT 70 
S(K+3)=-1:G070195 
IFS(K)SHTHENI 70 
IFS(K+6)<>GTHENI70 

TFS (K+3) <>GTHENI70 
S(K)==1:G0TO19S 
IFS(K+8) OO THENT70 
IFS(K#3)<>GTHENI70 
§(K46)2~1:G070195 

goTo4so 

IFS (3) sGANDS(7) =0THENI 87 
IFS(9)=GANDS(1)2OTHENTA1 
1FS(7)=GANDS(3)=OTHEN183 
IFS(9)=OANDS( 1) =GTHENI 89 
IFG2~1THENG=1 sH=-1 sGOTOT 10 
IFS(9)=1ANDS(3)=OTHENI82 
FORL=2T09: 1FS(1)<>OTHENI79 
SCL) =~ sG0T0195 

NEXTI 

5(1)=-1 sG0T0195 
1FSC1)"1THENI?7 
§(3)=-1:G0T0195 

9(7)==1 20070195 

5(9)2-1 

PRINT:PRINT"THE COMPUTER HOVES TO..." 
g0suB1000 

GOTO500 

IFG=1THEN465 

IF J©7ANDK=3THENAGS 

NEXTK, J 

1FS(5)=GTHENI71 

eoT0175 

PSs" x" 20$="9" 

PRINTS INPUT"WHERE DO YOU HOVE" SH 
IF 20 THENPRINT’ THANKS FOR THE GAHE":GOTO 2000 
IFH>9THEN 506 

IFS CH) =OTHENS1O 

PRINT"THAT SQUARE IS OCCUPIED" sPRINT:PRINT:GOTOSCO 
e1:S(M)=t 

GOSUB 1000 

GOTO 100 

0 PRINT:FORI=1TO9:PRINT" “ssIFS(1)<>-1THENION4 
2 PRINTOS" “1260701020 

4 IF SCL)Q>OTHEN 1018 

6 PRINT” “3360701020 

8 PRINTPS" “: 

0 IFLC>3ANDIX9STHENTO50 

0 PRINT:PRINT*=--4---4--~" 
0 GOTO 1080 

0 IFL©9THENT O80 

0 PRINT" E's 


1080 
1095 
1100 
1105 
1110 
1112 
1115 
1130 
1495 
137 
1150 
1152 
155 
1160 
165 
1170 
1180 
1200 
1350 
1400 
2000 


HEXTIESPRINTsPRINTSPRINT 

FOR I=tT07STEP3 

TESC1) COSC T+ THENEHIS 
TFS(1T)<>S( 142) THENTI1S 
TFS(1)=-1 THEN 330 

IFS(T)©1THENT200 
NEXTISFORT=17032 1FS(1)<>S (143) THENT 150 
TFS(1)<>S(14+6) THENI 150 
IFS(1)=©-1THEN13350 

IFSC1)=1THENI200 
NEXTESFORT=1709s1FS(1)=OTHENTISS 
HEXTI:G0T01400 

TFS(53)<(>GTHENI170 
TFS(1)=GANDS (9) =GTHENT1B0 
TFS(3)=GANDS(7)=GTHEN1180 

RETURN 

IFG=- 1 THENT350 

PRINT" YOU BEAT ME!! GOOD GAME":60T02000 


PRINT? WIN, TURKEY! 1!":60TG2000 
PRENT"IT’S A DRAW. THANK YOU" 
ERD 


TIC-TAC-TOE 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


WHERE DO YOU MOVE? 7 
DIS NUMBERED: 


DO YOU WANT “xX” OR “O°? X 


WHERE DO YOU KOVE? 5 THE COMPUTER MOVES TO... 
4 ao! to 

a aaa ker Penn geen 
xd O1rxix 

a aa tenntene 
t { x} [ 


a! ! o'1xio 
a a aa trenton 
1x Orx ix 
a ala ee trenteee 
{ { Xt 
WHERE DO YOU MOVE? 4 THE COMPUTER MOVES TO... 
0} 3 o'!1xio 
wen ben ete ten ete toe 
xix OoIx!x 
a ea a teendene 
t t xio! 


! Ox io 
a ten-tenn 
(y Orx!x 
waa fence ee 
! xtaox 


11°S A DRAW. THANK You 


Tower 


This is asimulation of agame of logic 
that originated in the middle East. It is 
sometimes called Pharoah’s Needles, 
but its most common name is the 
Towers of Hanoi. 

Legend has it that a secret society of 
monks live beneath the city of Hanoi. 
They possess three large towers or 
needles on which different size gold 
disks may be placed. Moving one at a 
time and never placing a larger ona 
smaller disk, the monks endeavor to 
move the tower of disks from the left 
needle to the right needie. Legend says 
when they have finished moving this 
64-disk tower, the world will end. How 
many moves will they have to make to 
accomplish this? If they can move 1 
disk per minute and work 24 hours per 
day, how many years will it take? 

In the computer puzzle you are faced 
with three upright needles. On the 
leftmost needle are placed from two to 
seven graduated disks, the largest 
being on the bottom and smallest on 
the top. Your object is to move the 
entire stack of disks to the rightmost 
needie. However, you may only move 
one disk at a time and you may never 
place a larger disk on top of a smaller 
one. 

In this computer game, the disks are 
referred to by their size — i.e., the 
smallest is 3, next 5, 7,9, 11,13, and 15. 
If you play with fewer than 7 disks 
always use the largest, i.e. with 2 disks 
you would use nos. 13 and 15. The 
program instructions are self- 
explanatory. Good luck! 

Charles Lund wrote this program 
while at the American School in the 
Hague, Netherlands. 


TOWERS 
CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 


TOWERS OF HANOI PUZZLE 


YOU MUST TRANSFER THE DISKS FROM THE LEFT 10 THE RIGHT 
TOWER, ONE AT A TINE, NEVER PUTTING A LARGER DISK ON A 


SHALLER DISK. 


HOW MANY DISKS DO YOU WANT TO MOVE (7 IS MAX)? J 


IM THIS PROGRAM, WE SHALL REFER TO DISKS BY NUMERICAL CODE. 
J WILL REPRESENT THE SHALLEST DISK, 3 THE NEXT SIZE, 
7 THE NEXT, AND SO ON, UP TO 15. IF YOU DO THE PUZZLE WITH 


2 DISKS, THEIR CODE MANES VOULD BE 13 AND 15. 
THE CODE MAMES WOULD BE 11, 13 AND 15, ETC. 


ARE NUMBERED FROM LEFT TO RIGHT, 1 TO 3. WE WILL 
START WITH THE DISKS ON WEEDLE 1, AND ATTENPT TO MOVE THEN 


TO NEEDLE 3, 
GOOD LUCK! 


e * * 

* + * 

* + * 

% * * 
BESEEEESEED * ¢ 
SERECESESSEES * * 
SESE SKESES TERS * * 


WVRICH DISK WOULD YOU LIKE TO MOVE? 11 
PLACE DISK ON WHICH NEEDLE? 3 


+ 
eeeeeteeeeans 
Seeeeeeeeeseees * eee ERED 
WHICH DISK WOULD YOU LIKE TO MOVE? 13 
PLACE DISK ON WHICH NEEDLE? 2 


one eu 
ene eet & 
ee eee 


’ * * 

* * * 

* * ? 

. * * 

* * * 

e * * 
EKRERESE NEESER eee T REESE EES Prreri itor 


WHICH DISK WOULD YOU LIKE TO HOVE? 11 
PLACE DISK ON WHICH NEEDLE? 2 


* * . 
s * * 
* * + 
. * * 
* . * 
. oeeeseeeses * 

eeeereeeceseees seceseaeeeces * 

WHICH DISK VOULD YOU LIKE TO HOVE? 15 

PLACE DISK ON WHICH NEEDLE? 3 
* * * 
. * * 
. . * 
* * * 
* * ' 
* eeeseeee eee * 
. eeeareceeneed FEVEEOREETEEDES 


WHICH DISK WOULD YOU LIKE TO MOVE? 143 

THAT DISK IS BELOW ANOTHER ONE. MAKE ANOTHER CHOICE. 
WHICH DISK WOULD YOU LIKE TQ MOVEY 11 

PLACE DISK ON WHICH NEEDLE? 1 


* ~* . 

t 6 + 

? * * 

‘ * + 

s * * 

+ * * 
SOSESEEEESE SOSSeEREEEESD SERPS EKE ESR EREE 


UHICH DESK WOULD YOU LIKE TO HOVE? 13 
PLACE DISK ON WHICH NEEDLE? 3 


* +. * 

. ‘ * 

* * * 

* * * 

* * * 

* * Ree SRE ES 

oeeereeeces . ODD 

WHICH DISK WOULD YOU LIKE TO MOVE? 11 
PLACE DISK GN WHICH NEEDLE? 3 

* * * 

‘ . * 

* . * 

* * * 

* . ¥eabenE Fee 

. * oeReRe REE EEE 

* + oONeT TORS REOeEE 
CONGRATULATIONS! ! 


YOU HAVE PERFORWED THE TASK IN 7 MOVES. 
TRY AGAIN (YES OR NO)? NO 
THANKS FOR THE GAME! 


10 PRINT TAB(33)s" TOWERS" 
2¢ PRINT TABCIS);"CREATIVE COMPUTING HORRISTOUN, NEW JERSEY" 
30 PRINTPRINTSPRINT 

90 PRINT 

100 REM#** INITIALIZE 

140 DIK Tt7,3) 

120 E=0 

130 FOR D=1 10 7 

140 FOR Nt TO 3 

150 T(D,N)=0 

160 NEXT 8 
170 NEXT D 
180 PRINT 
200 PRINT 
205 PRINT 
210 PRINT 
215 IKPUT 
220 PRINT 
230 H=0 
240 FOR O=1 10 7 

250 IF G=S THEN 350 

260 NEXT @ 

270 ESE+} 

280 IF E>2 THEN 310 

290 PRINT “SORRY, BUT I CAN’T DO THAT JOB FOR YOU.": GOTO 215 

310 PRINT “ALL RIGHT, WISE GUY, IF YOU CANT PLAY THE GAME RIGHT, I‘LL" 
220 PRINT “JUST TAKE HY PUZZLE AND GO HOWE. $0 LONG.": STOP 

340 REH ### STORE DISKS FROM SHALLEST TO LARGEST 


“FOUERS OF HANOI PUZZLE": PRINT 

"YOU HUST TRANSFER THE DISKS FROM THE LEFT TO THE RIGHT" 
“TOWER, ONE AT A TIHE, NEVER PUTTING A LARGER DISK ON A* 
“SMALLER DISK.": PRINT 

“HOU MANY DISKS BO YOU WANT TO MOVE (7 IS NAX}"3S 


350 PRINT "IN THIS PROGRAH, WE SHALL REFER TO DISKS BY NUMERICAL CODE." 
355 PRINT "3 WILL REPRESENT THE SMALLEST DISK, 5 THE NEXT SIZE," 

460 PRINT "7 THE NEXT, AND SOQ ON, UP TO ¢5. IF YOU DO THE PUZZLE WITH" 
365 PRINT “2 DISKS, THEIR CODE NAMES WOULD BE 13 AND 15. WITH 3 DISKS" 
370 PRINT “THE CODE NAMES WOULD BE 11, 13 AND 15, ETC. THE NEEDLES" 
375 PRINT "ARE NUMBERED FROM LEFT TO RIGHT, 1 TO 3. YE WILL" 

380 PRINT "START WITH THE DISKS ON NEEDLE 1, AND ATTEMPT TO HOVE THEN" 
3835 PRINT “TO NEEDLE 3." 

370 PRINT: PRENT “GOOD LUCKI"s PRINT 

400 Y=7: D=15 

420 FOR X=2S 10 1 STEP ~-1 

430 T(Y,1)=D: D=D-2: Y=¥~1 

460 NEXT X 

A470 GOSUB 1230 

480 PRINT "WHICH DISK WOULD YOU LIKE TO MOVE"; :E=0 

500 INPUT DB 

StO TF (D-3)e(D-5)#(D~7) e(D-7)e(D- 11 )e(D-13)4(D-15)=0 THEN 580 


520 PRINT "ILLEGAL ENTRY... YOU MAY ONLY TYPE 3,5,7,9,11,13, OR tS.” 


S30 E=E+t: IF E>? THEN 560 

550 GOTO 500 

560 PRENT "STOP WASTING HY TINE. 60 BOTHER SOMEONE ELSE.”"" STOP 
580 REN ee CHECK IF REQUESTED DISK IS BELOW ANOTHER 

590 FOR R=? 10 7 

600 FOR Ca1 TO 3 

610 IF T(R,C)=D THEN 640 

620 MEXT Cs NEXT R 

640 FOR Q=R 10 1 STEP ~1 

645 IF T(0,€)=0 THEN 640 

650 IF T(Q,C)<D THEN 680 

660 NEXT O 

670 GOTO 700 

680 PRINT "THAT DISK IS BELOW ANOTHER ONE. MAKE ANOTHER CHOICE." 
690 GOTO 480 

700 Ex0 


1050 
1066 
1080 
1090 
1100 
11to0 
1120 
1130 
1140 
1450 
1160 
1170 
1180 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1550 
1360 
1370 
1380 
1390 
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THPUT "PLACE DISK ON WHICH NEEDLE"SN 

TF (N-1)#(N-2)#(N-3)=0 THEN B00 

EsE+1 

IF E£>1 THEN 780 

PRINT "I°LL ASSUME YOU HIT THE WRONG KEY THIS TIME. 
PRINT "I ONLY ALLOW ONE MISTAKE.“ GOTO 705 
PRINT "I TRIED TO WARN YOU, BUT YOU WOULDN’T LISTEN.” 
PRINT "BYE BYE, BIG SHOT." STOP 

FOR R=1 10 7 

IF TCR,N)<>0 THEN 840 

NEXT R 

GOTO 880 

REN #¢+ CHECK IF DISK TO BE PLACED ON A LARGER ONE 
IF D<TCR,N) THEN 880 

PRINT "YOU CAN’T PLACE A LARGER DISK ON TOP OF A SNALLER ONE," 
PRINT “IT NIGHT CRUSH IT!": PRINT “NOU THE, “3:GOTO 480 
REM ##* HOVE RELOCATED DISK 

FOR V=t TO 7: FOR W=t TO J 

IF T(V,W)=D THEN 930 

NEXT Us NEXT V 

REM *o* LOCATE EMPTY SPACE ON NEEDLE W 

FOR U=1 70 7 

TF T(U,N)<>0 THEN 970 

WEXT U 

U=7; GOTO 980 
REM #¢% HOVE DISK AND SET OLD LOCATION TO 0 
U=U-t 

TCU,NI=T(V,UDs TOV, W=0 
REN oe PRINT QUT CURRENT STATUS 

GOSUB 1230 

REM #e¢ CHECK IF DONE 

Heh 

FOR R=! TO 7; FOR C= TO 2 

IF T{R,C)<>0 THEN 1090 

WEXT Cs WEXT R 

GOTO 1120 

IF W<=128 THEN 480 

PRINT "SORRY, BUT I HAVE ORDERS TO STOP IF YOU MAKE HORE THAN" 
PRINT "128 MOVES."s STOP 

IF MC>2°S-t THEN 1140 

PRINT “CONGRATULATIONS! !" 

PRINT “YOU HAVE PERFORMED THE TASK IN“;M;"MOVES,* 
PRINT: PRINT "TRY AGAIN (YES OR ND)";: INPUT AS 

IF A$="KO" THEN 1390 

IF A$="YES" THEN 90 

PRINT: PRINT ““YES* OR ‘NO’ PLEASE";: INPUT A$: GOTO 1160 
REN #8% PRINT SUBROUTINE 

FOR Ket TO ? 

Z=10 

FOR Jef 10 3 

IF T(K,J)=20 THEN 1330 

PRINT TAB(Z~INT(T(K,J)/2))3 

FOR V=1 TO T(K,J) 

PRINT “#"; 

NEXT V 

GOTO 1340 

PRINT TAB(Z)5"#"5 

Z=2+21 

NEXT J 

PRINT 

WEXT K 

RETURN 

PRINT: PRINT "THANKS FOR THE GAME! ": PRINT: END 


BUT WATCH IT," 


” A , - . 


° 
, ea ae 
J 


: fs . 
ror Peat een , ne? 
wo Me a™ Peiealdg tated Set et ek | Gases ips 


Le ees 


LoL, <0 es, | fon. . tee 
Sn a ve ‘ 
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ed 
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TRAIN is a program which uses the 
computer to generate problems with 
random initial conditions to teach 
about the time-speed-distance 
relationship (distance = rate x time). 
You then input your answer and the 
computer verifies your response. 

TRAIN is merely an example of a 
student-generated problem. Maximum 
fun (and benefit) comes more from 
writing programs like this as opposed 
to solving the specific problem posed. 
Exchange your program with others — 
you solve their problem and let them 
solve yours. 

. TRAIN was. originally written in 

FOCAL by one student for use by 
others in his class. It was submitted to 
us by Walt Koetke, Lexington High 
School, Lexington, Mass. 


TRAIN 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


TIME - SPEED DISTANCE EXERCISE 


1 PRINT TABC33) 5 "TRAIN" 


A CAR TRAVELING 54 MPH CAN MAKE A CERTAIN TRIP IN 2 PRINT TABCIS)S"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
11 HOURS LESS THAN A TRAIN TRAVELING AT 36 MPH, J PRINT: PRINT: PRINT 
HOU LONG DOES THE TRIP TAKE BY CAR? 23. 4 PRINT “TIME ~ SPEED DISTANCE EXERCISE": PRINT 
GOOD! ANSWER WITHIN 4 PERCENT. 10 CeINT(25eRND( 1) +40 
CORRECT ANSVER IS 22 HOURS. 15 DSINTCLS#RND C1) 945 
20 TSINTCH9#RND( 1) 420 
ANOTHER PROBLEM (YES OR NO)? YES 25 PRINT " A CAR TRAVELING";C3“NPH CAN HAKE A CERTAIN TRIP IN* 
30 PRINT D;"HOURS LESS THAN A TRAIN TRAVELING AT*;T;"HPH.* 
A CAR TRAVELING 40 NPH CAN MAKE A CERTAIN TRIP IN 35 PRINT "HOU LONG DOES THE TRIP TAKE BY CAR"; 
14 HOURS LESS THAN A TRAIN TRAVELING AT 34 MPH. 40 INPUT A 
HOW LONG DOES THE TRIP TAKE BY CART 20 43 V=DeT/(C-T) 
SORRY. YOU WERE OFF BY 297 PERCENT. SO E=INT(ABS((V~A)#100/A)+.5) 
CORRECT ANSUER IS 79.3333 HOURS. 33 IF €>5 THEN 70 
60 PRINT "GOOD! ANSWER WITHIN"[E: "PERCENT." 
AWOTHER PROBLEM (YES OR NO)? YES 465 GOTO 80 
70 PRINT "SORRY. YOU WERE OFF BY";E5"PERCENT."” 
A CAR TRAVELING 47 MPH CAN MAKE A CERTAIN TRIP IN 80 PRINT “CORRECT ANSWER IS";¥3 "HOURS," 
16 HOURS LESS THAN A TRAIN TRAVELING AT 22 MPH. 90 PRINT 
HOU LONG DOES THE TRIP TAKE BY CAR? 14 95 PRINT “ANOTHER PROBLEN (YES OR NO)": 
GOOD! ANSUER UITHIN 1 PERCENT. 100 INPUT A$ 
CORRECT ANSUER IS 14.08 HOURS. 105 PRINT 
110 IF AS="YES" THEN 10 
ANOTHER PROBLEM (YES OR NO)? NO 999 END 
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| Frap 


This is another in the family of “guess 
the mystery number” games. In TRAP 
the computer selects a random number 
between | and 100 (or other limit set in 
statement 20). Your object is to find the 
number. On each guess, you enter 2 
numbers trying to trap the mystery 
number between your two_ trap 
numbers. The computer will tell you if 
its number is larger or smaller than 
your trap numbers or if you have 


trapped the number. YOU HAVE TRAPPED KY NUMBER 
To win the game, you must guess the . 
mystery number by entering it as the GUESS # 2 T 50,40 
same value for both of your trap WY NUMBER IS SHALLER THAN YOUR TRAP NUMBERS. 
numbers. You get 6 guesses (this GUESS #3 7 35,45 
should be changed in statement 10 if HY HUMBER 15 SHALLER THAN YOUR TRAP NUMBERS. 
you change the guessing limit in 
statement 20). GUESS W 4 7 32,34 
After you have played GUESS, YOU HAVE TRAPPED HY NUMBER. 
STARS, and TRAP, compare the GUESS # 5 7 33,33 
guessing strategy you have found best HY NUMBER 18 SMALLER THAN YOUR TRAP NUMBERS. 


for each game. Do you notice any 


» . age . ? 9 
similarities? What are the differences? GUESS W 6 7 32,32 


. : You GOT IT!!! 

Can you write a new guessing game | PRINT TaB(34)¢"TRAP 

; : 5 4y;°TRAP™ 
wi another approach 10 2 PRINT TABCIS)3"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 

was suggested by a 1lU-year 3 PRINTSPRINTsPRINT 

old when he was playing GUESS. It was 10 G=6 
originally programmed by Steve UI- 20 N=100 
Iman and extensively modified into its 30 REN“TRAP > 
final form by Bob Albrecht of People’s to PRINT “INSTRUNTTONG'S 
ina y p 50 PRINT “INSTRUCTIONS"; 
Computer Co. 60 INPUT 7Z$ 


70 IF LEFTS(Z$,19<>"Y" THEN 180 
80 PRINT “I AN THINKING OF A NUMBER BETWEEN 1 AND*SH 
90 PRINT “TRY TO GUESS HY NUMBER. ON EACH GUESS," 
100 PRINT “YOU ARE TO ENTER 2 NUMBERS, TRYING TO TRAP" 
TRAP 110 PRINT “HY HUMBER BETWEEN THE TWO NUMBERS. I WILL" 
120 PRINT "TELL YOU IF YOU HAVE TRAPPED MY NUMBER, IF AY" 
CREATIVE COMPUTING MORRISTOUN, NEW JERSEY 130 PRINT “NUMBER IS LARGER THAN YOUR TWO NUMBERS, OR IF" 
140 PRINT “AY WUMBER IS SMALLER THAN YOUR TWO NUMBERS." 
150 PRINT “IF YOU WANT TO GUESS ONE SINGLE NUMBER, TYPE" 
160 PRINT “YOUR GUESS FOR BOTH YOUR TRAP NUMBERS.“ 
170 PRINT "YOU GET";0;"GUESSES TO GET MY NUMBER." 
180 X=INT(N@RNDC1)) +4 
190 FOR G=t 10 @ 
200 PRINT 
210 PRINT “GUESS #" 305 
220 INPUT A,B 
230 IF A=B AND X2A THEN 400 
240 IF A <= B THEN 260 
250 GOSUB 360 
260 IF A <= X AND X <= B THEN 320 
GUESS Bt 25,75 270 IF X<A THEN 300 
YOU HAVE TRAPPED MY NUMBER. 280 PRINT "HY NUMBER IS LARGER THAN YOUR TRAP NUMBERS." 
GUESS # 2? 40,40 270 GOTO 330 
2 40, , 
RY SUMNER 1S SRACLER THAN YOUR TRAP NUMBERS. 300 PRIM HV NUMBER 15 SHALLER THAN YOUR TRAP NUMBERS.” 
a 
auess #7 30,37 320 PRINT YOU HAVE TRAPPED HY NUMBER." 
VOU HAVE TRAPPED HY NUMBER. 340 PRINT “SORRY, THAT’S";G; "GUESSES. NUMBER UAS";X 
350 GOTO 410 


INSTRUCTIONS? YES 

T AM THINKING OF A NUMBER BETWEEN 1 AND 100 
TRY TO GUESS MY NUMBER. ON EACH GUESS, 

YOU ARE TO ENTER 2 NUMBERS, TRYING TO TRAP 

WY NUMBER BETWEEN THE TUO NUMBERS. I WILL 
TELL YOU IF YOU HAVE TRAPPED MY NUMBER, IF HY 
NUMBER IS LARGER THAN YOUR TWO NUMBERS, OR IF 
MY NUMBER IS SMALLER THAN YOUR TWO NUMBERS. 
If YOU WANT TO GUESS ONE SINGLE NUMBER, TYPE 
YOUR GUESS FOR BOTH YOUR TRAP NUMBERS. 

YOU GET 6 GUESSES TO GET MY NUMBER. 


GUESS # 4 7 34,46 360 R=A 

YOU HAVE TRAPPED MY NUMBER, 370 ASB 

GUESS # 5 7 35,35 390 RETURN 

NY NUMBER IS SHALLER THAN YOUR TRAP NUMBERS. 400 PRINT “YOU GOT IT!Hit" 
410 PRINT 

GUESS # 6 7 34,34 : 420 PRINT “TRY AGAIN.” 

YOU GOT ITH?! 430 PRINT 

TRY AGAIN. 450 END m° 
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23Matches 


Inthe game of twenty-three matches, YOUR TURN -~ YOU HAY TAKE 1,2,0R 3 MATCHES. 
you start with 23 matches lying on a THERE ARE MOU HATCHES REMAINING. = 
table. On each turn, you may take 1,2, HY TURN | I RENOVE 3 HATCHES 
or 3 matches. You alternate moves with THE NUMBER OF HATCHES IS NOW 5 
the computer and the one who has to 
take the last match loses. YOUR TURN -- YOU NAY TAKE 1,2,0R 3 MATCHES. 

: : a HOW MANY DO YOU WISH TO REMOVE 72 

The easiest way to devise a winning THERE ARE NOW 3 HATCHES REHAINING. 
strategy is to start at the end of the HY TURN { I REMOVE 2 HATCHES 
game. Since you wish to leave the last 
match to your opponent, you would YOU POOR BOOB ! YOU TOOK THE LAST MATCH |! I GOTCHA I! 
: : , Ha | HA! I BEAT You !11 
like to have either 4, 3, or 2 on your last ’ 


turn so you can take away 3, 2, or1and GOOD BYE LOSER! 
leave 1. Consequently, you would like 
to leave your Opponent with 5 on his 


next to last turn so, no matter what his 20 PRINT TAB(31)3"23 HATCHES" 


move, you are left with 4, 3, or 2. Work 30 PRINT TAB(IS)S"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
this backwards to the beginning and 40 PRINTSPRINTsPRINT 
you'll find the game can effectively be 80 PRINT ” THIS IS A GAME CALLED “23 HATCHES’.” 
. 90 PRINT 
won on the first move. Fortunately, the 100 PRINT “WHEN IT 18 YOUR TURN, YOU MAY TAKE ONE, TWO, OR THREE" 
computer gives you the first move, so if 110 PRINT “HATCHES. THE OBJECT OF THE GANE IS NOT TO HAVE TO TAKE® 
you play wisely, you can win. 120 PRINT "THE LAST HATCH." 
, W 
After 1a RTNOM and es Matches, 140 PRINT “LETS FLIP A COIN TO SEE UHO GOES FIRST." 
move on to E and then to NIM. 150 PRINT “IF IT COWES UP HEADS, 1 WILL WIN THE TOSS." 
This version of 23 Matches was 155 PRINT 
originally written by Bob Albrecht of 160 REM 
People’s Computer Company. 165 H = 23 


170 @ © INT(2*RND(S)) 

180 IF Q = 1 THEN 210 

190 PRINT “TAILS | YOU GO FIRST * 

195 PRINT 

200 GOTO 300 

210 PRINT “HEADS! I WIN! HA! HAE” 

220 PRINT “PREPARE TO LOSE, MEATBALL-NOSE !!" 
230 PRINT 

250 PRINT " I TAKE 2 HATCHES” 

260 NN -2 

270 PRINT “THE NUMBER OF WATCHES I9 NOU" WN 
280 PRINT 

290 PRINT “YOUR TURW ~- YOU NAY TAKE 1,2,0R 3 MATCHES.” 
300 PRINT “HOU HAWY DO YOU WISH TO REMOVE", 


310 INPUT K 
23 MATCHES 320 IF K > 3 THEN 430 
CREATIVE COMPUTING HORRISTOWN, NEW JERSEY 330 IF K <# 0 THEN 430 
340 NEN K 
THIS 1S A GAME CALLED “23 MATCHES”. 350 PRINT “THERE ARE NOW “;NS“HATCHES REMAINING." 
351 IF No 4 THEN 381 
WHEN IT IS YOUR TURN, YOU WAY TAKE ONE, TWO, OR THREE 352 IF N « 3 THEN 383 
MATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE 353 IF N= 2 THEN 305 
THE LAST HATCH. 360 IF N <= 1 THEN 330 
W022 4- K 
LET’S FLIP A COIN TO SEE WHO GOES FIRST. 372 GOTO 390 
IF IT COMES UP HEADS, I WILL WIN THE TOSS. 380 PRINT 
3812 =3 
HEADS! I WIN! HA! HAl 382 GOTO 390 
PREPARE TO LOSE, HEATBALL-NOSE ! 1 303 2 = 2 
384 GOTO 390 
1 TAKE 2 MATCHES 385 Z 5 1 
THE MUNBER OF HATCHES IS NOW 21 390 PRINT “HY TURN 1 1 REMOVE" Z “MATCHES” 
M00 NEN - 2 
YOUR TURN ~~ YOU HAY TAKE 1,2,0R 3 MATCHES. 410 IF N <= § THEN 470 
HOW MANY DO YOU WISH TO REMOVE 13 420 GOTO 270 
THERE ARE NOW 18 HATCHES REMAINING. 430 PRINT “VERY FUNNY ! DUMMY!" 
MY TURN ! IT REMOVE 1 HATCHES 440 PRINT "DO YOU WANT TO PLAY OR GOOF ARQUND 7" 
THE NUMBER OF HATCHES IS NOU 17 450 PRINT "NOU HOU HANY HATCHES DO YOU UANT", 
460 GOTO 310 
YOUR TURN -- YOU HAY TAKE 1,2,0R 3 HATCHES. 470 PRINT 
HOW MANY DO YOU WISH TO REMOVE V1 480 PRINT*YOU POOR BOOB ! YOU TOOK THE LAST HATCH | I GOTCHA #1" 
THERE ARE HOW 16 MATCHES REMAINING. 490 PRINT "HA ! HAL I BEAT YOU Iti" 
HY TURN { I REMOVE 3 MATCHES 500 PRINT 
THE NUMBER OF HATCHES IS NOW 13 S10 PRINT “G00D BYE LOSERI” 
520 GOTO 560 
YOUR TURN -- YOU HAY TAKE 1,2,0R 3 WATCHES. 530 PRINT "YOU WON, FLOPPY EARS 1" 
HOW HANY DO YOU WISH TO REKOVE 1 340 PRINT “THINK YOURE PRETTY SMART !{” 
THERE ARE NOW 12 MATCHES REMAINING. 550 PRINT “LETS PLAY AGAIN AND I-LL BLOW YOUR SHOES OFF ti" 
WY TURN | I REWOVE 3 HATCHES 5é0 STOP 
THE HUMBER OF MATCHES IS NOW 9 570 END 
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This program plays the card game of 10 PRINT TAB(33); "WAR" 


War. In War, the card deck is shuffled, 20 PRIA TAB INS) # CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
then two cards are dealt, one to each 100 PRINT "THIS IS THE CARD GAME OF YAR. EACH CARD 18 GIVEN BY SUIT-W" 
player. Players compare cards and the 110 PRINT “AS S-7 FOR SPADE 7. "5 
higher card (numerically) wins. Incase 120 PRINT "DO YOU WANT DIRECTIONS"; 
of a tie, no one wins. The game ends 130 INPUT BS 
when you have gone through the whole 190 Hi Dec"YES" THEN 180 
deck (52 cards, 26 games) or when you 160 PRINT "YES OR NO, PLEASE. *s 
decide to quit. 170 GOTO 120 
ives cards by suitand 180 PRINT “THE COMPUTER GIVES YOU AND IT A CARD’. THE HIGHER CARD" 
numbon tor oxenple Sy ie the 7 of 170 PRINT "(NUMERICALLY) WINS. THE GAME ENDS WHEN YOU CHOOSE NOT TO” 
, ’ 200 PRINT "CONTINUE OR WHEN YOU HAVE FINISHED THE PACK." 
spades. 210 PRINT 
220 PRINT 
230 DIM AS(S2),L(54) 
WAR 240 FOR I=1 10 52 
CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 250 READ AS(I) 
260 NEXT I 
THIS IS THE CARD GAME OF WAR. EACH CARD IS GIVEN BY SUIT-# 270 REM 
AS S-? FOR SPADE 7. DO YOU WANT DIRECTIONS? YES 280 FOR J=1 10 52 
THE COMPUTER GIVES YOU AND IT A “CARD’. THE HIGHER CARD 290 LET L(J)=INT(S29RND(1))44 
(MUHERICALLY) WINS. THE GAME ENDS WHEN YOU CHOOSE NOT TO 295 IF J=1 THEN 350 
CONTINUE OR UNEN YOU HAVE FINISHED THE PACK. 300 FOR K=1 TO J-4 
310 IF LEK)<>L(J) THEN 340 
320 REM 
330 GOTO 290 
YOU: S-10 COMPUTER: §~-2 340 NEXT K 
YOU VIN. YOU HAVE 1 COMPUTER HAS 0 350 NEXT J 
DO YOU WANT TO CONTINUE? YES 360 P=P+i 
370 MI=L(P) 
YOU: 5-9 COMPUTER: H-J 380 P=P+1 
COMPUTER WINS!!! YOU HAVE 1 COMPUTER HAS 1 390 N2=L(P) 
DO YOU WAHT TO CONTINUE? YES 400 PRINT 
420 PRINT "YOU: “sAS(H1), "COMPUTER: "3A$(H2) 
YOU: §-5 COMPUTER: D-3 430 NIZINTC(HI-.5)/4) 
YOU WIN. YOU HAVE 2 COMPUTER HAS 1 440 N2=INTCCH2-.5)/4) 
DO YOU WANT TO CONTINUE? YES 450 IF NiD=N2 THEN 490 
460 Ai=AI+ 
YOu: S~K COMPUTER: H-@ 470 PRINT "COMPUTER WINS!!! YOU HAVE"SB1s" COMPUTER HAS" sal 
YOU WIN. YOU HAVE 3 COMPUTER HAS 1 480 GOTO 540 
DO YOU WANT TO CONTINUE? YES 490 IF NI=N2 THEN 530 
500 BI=BI+1 
YOU: £-10 COMPUTER: C-8 510 PRINT “YOU WIN. YOU HAVE"SB1;" COMPUTER HAS"ZAt 
YOU WIN. YOU HAVE 4 COMPUTER HAS 1 520 GOTO 540 
DO YOU WANT TO CONTINUE? YES 530 PRINT "TIE. NO SCORE CHANGE.” 
540 IF L(P+1)=0 THEN 610 
YOUs H-5 COMPUTER: C-5 550 PRINT "DO YOU WANT TO CONTINUE": 
TIE. NO SCORE CHANGE. 560 INPUT U$ 
DO YOU WANT TO CONTINUE? YES 570 IF V$="YES" THEN 360 
580 IF Vs="NO" THEN 650 
YOU: H-A COMPUTER: S-4 570 PRINT "YES OR NO, PLEASE. "3 
YOU WIN. YOU HAVE 5 COMPUTER HAS 1 600 GOTO 540 
DO YOU WANT TO CONTINUE? YES 610 PRINT 
620 PRINT 
YOUs D-K COMPUTER: C-K 430 PRINT "YOU HAVE RUN OUT OF CARBS. FINAL SCORE: YOU--"3Bt; 
TIE. WO SCORE CHANGE. 640 PRINT "3 COMPUTER--"3A1 
DO YOU WANT TO CONTINUE? YES 650 PRINT "THANKS FOR PLAYING. IT WAS FUN." 
640 DATA "S- 2" MHR 2h, "C= 2" D2", "G3", OHO", C-9", D-3" 
YOU: C-3 COMPUTER: C-9 670 DATA "S-4","H-4", "0-4", "D-4", "8-5", H-54, C-5" p-gH 
COMPUTER WINS!!! YOU HAVE 5 COMPUTER Has 2 680 DATA “S-6","H~6","C-6%,"D-6", "5-2", "H-2", "CH7", "D=7" 
DO YOU WANT TO CONTINUE? YES 690 DATA *S-8","H-8","C-8", "D-B", "S-9", "H-9", "C99" MD-gH 
700 DATA "S-10","H-10",°C-10","D-10","S-J","H-J", "O=", "Deg" 
YOU: H-7 COMPUTER: C-0 710 DATA “S-O","H-O", "C=O", "D-0","S-K", "HK", "CK", "D-H! 
COMPUTER WINS!!! YOU HAVE 5 COMPUTER HAS 3 720 DATA "S-A", "HA", "CA", "DA" 
DO YOU WANT TO CONTINUE? YES 999 END 
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Weekday 


This program gives facts about your 10 PRINT TAB(32) ;"WEEKDAY® 
date of birth (or some other day of 20 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY” 
; . . 30 PRINTsPRINTSPRINT 
interest). It is not prepared to give 100 PRINT “WEEKDAY IS @ COMPUTER DEMONSTRATION THAT" 
information on people born before the 110 PRINT"GIVES FACTS ABOUT A DATE OF INTEREST 70 YoU." 
use of the current type of calendar, i.e. 120 PRINT 
year 1582 : 130 PRINT “ENTER TODAYS DATE IN THE FORM: 3,24,1978 °3 

_ , . 140 INPUT H1,Dt,Y1 

You merely-enter today’s date in the 150 REM THIS PROGRAM DETERMINES THE DAY OF THE WEEK 
form — month, day, year and your date 160 REH FOR A DATE AFTER 1582 
of birth in the same form. The computer 170 DEF FHACAD=INT(A/4) 
then tells you the day of the week of 180 DIK T(12) 

: 190 DEF FNB(A)=INT(A/7) 
your birth date, your age, and how 200 REM SPACE OUTPUT AND READ IN INITIAL VALUES FOR MONTHS, 
much time you have spent sleeping, 210 FOR Ie 1 TO 12 
eating, working, and relaxing. a0 eT ae 
_ This program was adapted fromaGE 240 PRINT*ENTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)"; 
timesharing program by Tom Kloos at 250 INPUT K,D,Y 
the Oregon Museum of Science and 260 PRINT 
Industry. 270 LET If = INT({Y¥-1500)/100) 
280 REM TEST FOR DATE BEFORE CURRENT CALENDAR. 
WEEKDAY 290 IF Y-1582 <0 THEN 1300 

CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 300 LET A's These(t+3)/4 


310 LET T2=1NT(A~FNB(AD47) 
320 LET Y2=INT(Y/100) 

330 LET YE SINT(Y-¥2%100) 
SAO LET A HY3/4t¥S4D4T (MH) 412 
350 LET B=INT(A~FNB(A)#7)+1 


WEEKDAY IS A COMPUTER DEMONSTRATION THAT 
GIVES FACTS ABOUT A DATE OF INTEREST TO yOu. 


ENTER TODAY’S DATE IN THE FORM: 3,24,1978 7 1,7,1978 


360 IF 4 > 2 THEN 470 
7 12,2 
EWTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)? 12,2,1999 370 IF Y3 = 0 THEN 440 
127271999 WILL BE @ THURSDAY 380 LET THSTNT(Y-FHACY)¥4) 


390 IF T1 <> 0 THEN 470 
A400 IF BC>O THEN 420 


410 LET BEG 
WEEKDAY IS @ COMPUTER DEMONSTRATION THAT 420 LET B® BH1 
GIVES FACTS ABOUT A DATE OF INTEREST TO You. 430 GOTO 470 
440 LET A= T1-1 
ENTER TODAY’S DATE IN THE FORM: 3,24,1978 1 12,1,1977 450 LET TIS INT(A-FNA(A)#4) 
EXTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)? 4,12,1952 460 IF Tl = 0 THEN 400 
470 IF B <>0 THEN 490 
4/12 71952 WAS A SATURDAY 490 LET B= 7 
AGO IF (YUSIQ+HE) 8ST 4DIC(Ve124H) ¥314D THEN 550 
YEARS HONTHS DAYS 500 IF (Yiet2+Hi)s314Di=(Ve12+4)"314D THEN 530 
YOUR aué IF BIRTHDATE 25 ? 19 S10 PRINT HE"/"sDe"7"2¥e" YAS & "3 
YOU HAVE SLEPT 8 "1 24 520 GOTO 570 
YOU HAVE EATEN 4 4 10 530 PRINT He"/"sDS"7"3Y5" IS AG 
YOU HAVE WORKED/PLAYED 5 10 yd 540 GOTO 570 * 
YOU HAVE RELAXED é 4 18 550 PRINT Hp"/*sDE"/"s¥s" WILL BE A"; 
560 REX PRINT THE DAY OF THE WEEK THE DATE FALLS ON, 
#YOU HAY RETIRE IN 2017 # 570 IF B <2! THEN 590 
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580 
590 
600 
610 
620 
630 
640 
650 
460 
670 
480 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
8t0 
820 
830 
a35 
840 
850 
840 
870 
880 
890 
900 
910 
920 
930 
940 
930 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 


4 oo 6 
we U ewe 73 
ae A t on r. . igs a wate 3” ir? See AL! Re 
Hy o°7 
. or * tte - . ’ : 
5 ae Oe Seer “shee 3 meee TO 
ow 4%, 4, . : “~ . ‘ T4 


PRINT “SUNDAY* 
IF BO>2 THEN 610 
PRINT “MONDAY “ 
IF BQ>3 THER 630 
PRINT "TUESDAY" 
IF B<>4 THEN 650 
PRINT “VEDNESDAY® 
IF B&>5 THEN 670 
PRINT “THURSDAY* 
IF B<>S THEN 490 
gato 1250 
IF BQ? THEN 710 
PRINT “SATURDAY” 
IF (¥18024H1)8314D12(Ye12eH)93t4D THER 1120 
LET 15=V1-Y 
PRINT 
LET 16=H1-4 
LET 17=b1-D 
IF I7>=0 THEN 790 
LET 16= 16-1 
LET 17=17430 
IF 16>#0 THEN 820 
LET [5#15-1 
LET 14=16+12 
IF I5<0 THEN 1310 
IF 17 <> 0 THEN 850 
IF 16 <> 0 THEN @50 
PRINT“##sHAPPY BIRTHDAY #+4* 
PRINT “ ",” ", "YEARS", "HONTHS", "DAYS" 
PRINT “YOUR AGE IF BIRTHDATE ",I5,16,17 
LET AG = (156365)4(16830)4174+1NT(16/2) 
LET K5 © 15 
LET KG = 16 
LET M7? = 17 
REN CALCULATE RETIREMENT DATE. 
LET E = +45 
REM CALCULATE TIME SPENT IN THE FOLLOWING FUNCTIONS. 
LET F = 435 
PRINT “YOU HAVE SLEPT *, 
BOSUB 1370 
LET F = .17 
PRINT “YOU HAVE EATEN *, 
GOSUB 1370 
LET F = .23 
IF K5 > 3 THEN 1040 
PRINT “YOU HAVE PLAYED", 
GOTO 1080 
IF K5 > 9 THEN 1070 
PRINT “YOU HAVE PLAYED/STUDIED", 
soTo 1080 
PRINT “YOU HAVE VORKED/PLAYED", 
GOSUB 1370 
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1085 
1070 
1100 
Hito 
1120 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
4230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
4430 
1440 
1450 
1460 
1470 
1480 
1470 
1500 
1510 
1520 
1530 
1940 
1550 
1360 
1570 
1580 
1590 


GOTO 1530 

PRINT “YOU HAVE RELAXED ",K5,K4,K7 
PRENT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
END 
IF D=13 THEN 1280 


"8 "eYOU MAY RETIRE IN°FE; "4" 


PRINT "FRIDAY " 

GOTO 710 

PRINT “FRIDAY THE THIRTEENTH~~~BEWARE” 

GOTO 710 

PRINT “NOT PREPARED TO GIVE DAY OF WEEK PRIOR TO MDLXXXII. " 


GOTD 1140 
REM TABLE OF VALUES FOR THE MONTHS TO BE USED IN CALCULATIONS. 


DATA 0, 3, 3, 6, ty 4y 6, 2, 5, 0) 3, S 

REM THIS I$ THE CURRENT DATE USED IN THE CALCULATIONS. 
REM THIS IS THE DATE TO BE CALCULATED ON. 

REM CALCULATE TIME IN YEARS, MONTHS, AND DAYS 
LET KI=INT(F#AQ) 

LET 15 = INT(K1/365) 

LET KY = Ki- (15#365) 

LET 16 = INT(KI/30) 

LET 17 = Ki ~(16#30) 

LET KS = K5-15 

LET K6 =K6=16 

LET K? = K?=I? 

IF K7>=0 THEN 1480 


LET K7=K7+30 

LET Ké=Ké~t 

IF K6>0 THEN 1510 
LET K6=K6412 

LET K5=K5-1 

PRINT I5, 16,17 
RETURN 

IF K6=12 THEN 1550 
GOTO 1090 

LET K5=K5+1 

LET K6=0 

oto 1090 

REK 

END 


Word 


WORD is a combination of 
HANGMAN and BAGELS. In_ this 
game, the player must guess a word 
with clues as to letter position fur- 
nished by the computer. However, 
instead of guessing one ietter atatime, 
in WORD you guess an entire word (or 
group of 5 letters, such as ABCDE). 
The computer will tell you if any letters 
that you have guessed are in the 
mystery word and if any of them are in 
the correct position. Armed with these 
clues, you go on guessing until you get 
the word or, if you can’t get it, input a 
“2” and the computer will tell you the 
mystery word. 

You may change the words in Data 
Statements 512 and 513, but they must 
be 5-letter words. 

The author of this program is Charles 
Reid of Lexington High School, Lex- 
ington, Massachusetts. 


WORD 
CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 


TAH THINKING OF A WORD ~~ YOU GUESS IT. I WILL GIVE YOU 
CLUES TO HELP YOU GET IT. GOOD LUCK!) 


YOU ARE STARTING A NEU GANE... 

GUESS A FIVE LETTER WORD? ABCDE 

THERE WERE 3 MATCHES AND THE COMMON LETTERS WERE...CAD 

FROM THE EXACT LETTER MATCHES, YOU KNOU..... cece een eed” 


GUESS A FIVE LETTER WORD? FGHIJ 
THERE WERE 0 HATCHES AND THE COMMON LETTERS WERE... 
FROM THE EXACT LETTER HATCHES, YOU KNOW... .. cece eee at Dm 


IF YOU GIVE UP, TYPE °?” FOR YOUR NEXT GUESS. 


GUESS A FIVE LETTER WORD? LANOP 
THERE WERE { MATCHES AND THE COMMON LETTERS WERE...N 
FROM THE EXACT LETTER MATCHES, YOU KNOWL... ceseercenee “ND- 


IF YOU GIVE UP, TYPE “?° FOR YOUR NEXT GUESS. 


GUESS A FIVE LETTER WORD? CANDY 

THERE VERE 5 MATCHES AND THE COMMON LETTERS WERE...CANDY 
FROM THE EXACT LETTER HATCHES, YOU KNOW... cence eeeees »CANDY 
YOU HAVE GUESSED THE WORD. IT TOOK 4 GUESSES! 


WANT TO PLAY AGAIN? YES 


YOU ARE STARTING A NEW GAHE... 

GUESS A FIVE LETTER WORD? ABCDE 

THERE WERE O MATCHES AND THE COMMON LETTERS WERE... 

FROM THE EXACT LETTER MATCHES, YOU KNOW... scene eceeeeetrnn™ 


IF YOU GIVE UP, TYPE “7” FOR YOUR NEXT GUESS. 


GUESS A FIVE LETTER WORD? FGHIJ 
THERE WERE 2 MATCHES AND THE COMMON LETTERS WERE...FI 
FROM THE EXACT LETTER MATCHES, YOU KNOW... ecu eneccenne Feo-~ 


GUESS A FIVE LETTER WORD? MNOPS 
THERE WERE 1 MATCHES AND THE COMMON LETTERS WERE...S 
FROM THE EXACT LETTER HATCHES, YOU KNOW. sesseeeenevennefrrn 


IF YOU GIVE UP, TYPE “?’ FOR YOUR NEXT GUESS. 


GUESS A FIVE LETTER WORD? FISTS 
THERE WERE 5 MATCHES AND THE COMMON LETTERS WERE...FISST 
FROM THE EXACT LETTER MATCHES, YOU KNOW....... seneneeee Flown 


GUESS A FIVE LETTER YORD? FIRST 

THERE WERE 3 MATCHES AND THE COMMON LETTERS WERE...FIRST 
FROM THE EXACT LETTER MATCHES, YOU KNDW...ceenesneeavee FIRST 
YOU HAVE GUESSED THE WORD. IT TOOK 5 GUESSES! 


WANT TO PLAY AGAIN? NO 


2 PRINT TAB(33)s "WORD" 

J PRINT TAB(15); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

4 PRINT: PRINT: PRINT 

5 DIM $(7),A€7),L(7), 47), PC?) 

10 PRINT “I AM THIHKING OF A WORD ~~ YOU GUESS IT. 1 WILL GIVE You" 
15 PRINT "CLUES TO HELP YOU GET 17. GOOD LUCKI!": PRINT: PRINT 
20 REM 

30 PRINT: PRINT! PRINT “YOU ARE STARTING A NEW GAME..." 

35 RESTORE 

40 READ N 

SO C=INT(RND(1)eH#1) 

60 FOR I=1 10 

70 READ S$ 

80 NEXT I 

90 G=0 

95 S(O)=LEN(S$) 

100 FOR I=! TO LEW(S$): S(T)=ASC(MIDS(S$,1,1)): NEXT I 

110 FOR I= 10 5 

120 ACT) =45 

130 NEXT I 

140 FOR J=t TD § 

144 PUI) =0 

146 NEXT J 

150 PRINT "GUESS A FIVE LETTER WORD": 

160 INPUT L$ 

170 G=G+1 

172 IF $$=6$ THEN 500 

173 FOR Ist TO 7: PCT)=0: NEXT I 

175 L(O)SLEN(LS) 

180 FOR I=1 TO LEN(L$)s LOL)=ASC(MIDS(L$,1,1)): NEXT I 

190 IF L(1)=63 THEN 300 

200 IF L(0)<>5 THEN 400 

205 H=0: O21 

210 FOR 1=1 10 5 

220 FOR Je! TO 5 

230 IF S(T)<>L(J) THEN 260 

231 PCQD=LG) 

232° 02041 

233 IF I<>J THEN 250 

240 ACJIEL(D) 

250 MEH! 

260 NEXT J 

265 NEXT I 

270 A(O)=5 

272 P(O)sN 

275 A$=""2 FOR [=1 TO ACO): AS=ASFCHRS(ACI)): NEXT I 

277 Pe="": FOR I=1 TO PCO): PS=PS+CHRS(P(T)): NEXT I 

280 PRINT "THERE WERE" ;H;°MATCHES AND THE COMMON LETTERS WERE..."3P3 
285 PRINT "FROM THE EXACT LETTER HATCHES, YOU KNOW......... seen TAS 
286 IF AS=S$ THEN 500 

207 IF M>1 THEN 289 

288 PRINT: PRINT “IF YOU GIVE UP, TYPE “?’ FOR YOUR NEXT GUESS." 
289 PRINT 

290 GOTO 150 

300 S$="": FOR T=1 TO 7: S$=SS8+CHRS(S(1))2 NEXT I 

310 PRINT “THE SECRET WORD IS "sS$: PRINT 

320 GOTO 30 

400 PRINT “YOU HUST GUESS AS LETTER WORD. START AGAIN." 

410 PRINT: G=6-1: GOTO 150 

500 PRINT "YOU HAVE GUESSED THE WORD. IT TOOK":Gs"GUESSES!": PRINT 
510 INPUT "WANT TO PLAY AGAIN"sQ$ 

520 IF O$="YES" THEN 30 

530 DATA 12, "DINKY", "SMOKE", "WATER", "GRASS", "TRAIN", “NIGHT”, "FIRST" 
540 DATA "CANDY", "CHAMP", "WOULD", "CLUKP", “DOPEY” 

999 END 
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Index by Game Category 


Introductory Fun 


Buzzword 36 
Hello 82 
Name 116 
Poetry 128 
Rock, Scissors, Paper 137 
Russian Roulette 141 
Weekday 179 
Educational 

Animal 4 
Change 39 
Chemist 42 
Chief 43 
Civil War 46 
Fur Trader 69 
Hammurabi 78 
Hangman 80 
Kinema 95 
King 96 
Literature Quiz 104 
Math Dice 113 
Stock Market 154 
Synonym 164 
Train 175 
Plotting and Pictures 
Amazing 3 
Banner 10 
Bounce 25 
Bug 30 
Bunny 35 
Calendar 37 
Diamond 56 
Life 100 
Life for Two 102 
Love 105 
Sine Wave 146 
3-D Plot 167 


Number or Letter Guessing 
Guess 75 


Hi-Lo 85 
Letter 99 
Number 121 
Stars 153 
Trap 176 


Remove an Object 
Bantum 

Even Wins (2) 

Nim 

23 Matches 


Matrix Manipulation 
Battle 

Bombardment 

Depth Charge 

Hurkle 

Mugwump 

Pizza 

Salvo 


Logic 

Awari 

Bagels 
Chomp 

Cube 

Digits 

Flip Flop 
Hexapawn 
High I-Q 
Master Mind® 
Nicomachus 
One Check 
Queen 
Reverse 

3-D Tic Tac Toe 
Tic Tac Toe (2) 
Tower 

Word 


Space 

Lunar, LEM, Rocket 
Orbit 

Splat 

Super Star Trek® 
Target 


Sports Simulation 
Basketball 

Bowling 

Boxing 

Bullfight 

Bullseye 
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118 
177 


110 
117 
122 
133 
135 
168 
171 
173 
181 


106 
124 
151 
157 
165 


12 
26 
28 
32 
34 


Football (2) 64 
Golf 71 
Hockey 88 
Slalom 147 
Gambling and Casino 
Blackjack 18 
Craps 52 
Dice 57 
Horserace 92 
Poker 129 
Roulette 138 
Slots 149 
Card and Board 

Acey Ducey 2 
Checkers 40 
Gomoko 74 
War 178 
Combat 

Bombs Away 24 
Combat 50 
Gunner 77 


10] imaginative and challenging games for one, 
two, or more players—Basketball, Craps, Gomoko, 
Blackjack, Even Wins, Digits, Bombs Away, Horserace. 
Simulate lunar landings. Play the stock market. 
Write poetry. Draw pictures. 


All games come complete with step-by-step programs and 
sample runs. All programs run on Microsoft 8K Basic, Rev. 4.0. 
Basic conversion table included. 
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